If OpenDialog1.Execute

then RichEdit1.Lines.LoadFromFile

OpenDialog1.FileName);

end;

procedure TForm1.SaveAs1Click(Sender:TObject);

begin

If SaveDialog1.Execute

then ichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

end;

3. Компоненты внутри панелей в действительности не используются. Однако вам необходимо воспользоваться двумя кнопками, чтобы скрыть или отобразить каждую из двух панелей вместе с управляющими элементами, которые в них содержатся. Те же действия можно выполнить с помощью двух команд меню: View - Edit Boxes и View - Check Boxes. Когда вы выбираете одну из этих команд меню или нажимаете одну из кнопок, происходит три разных действия. Во-первых, отображается или скрывается панель. Во-вторых, текст кнопки изменяется с Hide на Show и наоборот. В-третьих, рядом с соответствующим элементом меню появляется или исчезает галочка. Ниже приведен код одного из двух методов, который связан с событиями щелчка как команды меню, так и кнопки:

Procedure tForm1.ViewEdit1Click(Sender:tObject); begin

Panel1.Visible:= not Panel1.Visible;

ViewEdit1.Checked:= not ViewEdit1.Checked;

If Panel1.Visible

then Button1.Caption:=‘Hide’;

else Button1.Caption:= ‘Show’;

end;

4. Команды меню Buttons применяют другой подход. Для показа текущего состояния они используют не галочку, а изменение текста. Кроме того, они разрешают или запрещают соответствующую команду View и кнопку:

procedure TForm1.ButtonsFirst1Click(Sender:TObject);

begin

If Buttons1.Enabled

then begin

Buttons1.Enabled:= False;

ViewEdit1.Enabled:= False;

ButtonsFirst1.Caption:= ‘Enable &First’;

end

else begin

Buttons1.Enabled:= True;

ViewEdit1.Enabled:= True;

ButtonsFirst1.Caption:= ‘Disable &First’;

End;

end;

5. Команды меню Pulldowns должны скрывать выпадающее меню указанное в элементах, и показывать галочку для выбранного элемента. Запишите код для каждого элемента этого меню самостоятельно.

12. Получение «ввода от мыши» и рисование в форме

Когда пользователь нажимает одну из кнопок мыши, указатель которой находится над формой (или над компонентом), Windows посылает приложению несколько сообщений. Для написания кода, откликающегося на эти сообщения, Delphi определяет несколько событий. Основных событий два: OnMouseDown, которое происходит при нажатии одной из кнопок мыши, и OnMouseUp, которое происходит при освобождении кнопки.

Еще одно важное системное сообщение связано с перемещением мыши – сообщение OnMouseMove. Событие OnClick также доступно и в форме. Его основной смысл состоит в том, что левая кнопка мыши нажимается и отпускается над одним и тем же окном или компонентом. Однако в период между этими двумя действиями курсор может переместиться за пределы окна или компонента, причем левая кнопка мыши будет удерживаться нажатой. Если вы в определенной позиции нажмете кнопку мыши, а затем переместите мышь в другое место и отпустите кнопку, то щелчка не будет. В этом случае окно получает только сообщение о нажатии, несколько сообщений о перемещении и сообщение об освобождении.