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 также доступно и в форме. Его основной смысл состоит в том, что левая кнопка мыши нажимается и отпускается над одним и тем же окном или компонентом. Однако в период между этими двумя действиями курсор может переместиться за пределы окна или компонента, причем левая кнопка мыши будет удерживаться нажатой. Если вы в определенной позиции нажмете кнопку мыши, а затем переместите мышь в другое место и отпустите кнопку, то щелчка не будет. В этом случае окно получает только сообщение о нажатии, несколько сообщений о перемещении и сообщение об освобождении.