Советы по Delphi

       

Альтернатива кнопкам в Delphi


пишет:

Вместо компонентов TButton, TBitBtn и т.д. можно исвользовать компоненты TImage расположив их по 2 или по 3 один над одним, в них помещаются рисунки заменяющие кнопки
1- простое изображение
2- подсвеченное изображение
3- имитирующее нажатие

свойству 2 и 3 компонентов Visible присвоить False;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);begin
Image1.Visible:=False;//При наведении указателя мыши появляется второе изображениеImage2.Visible:=True;end;


procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);begin
Image2.Visible:=False;// При нажати ЛКМ пояпляется третье изображениеImage3.Visible:=True;end;


procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);begin
Image2.Visible:=False;//При отпускании ЛКМ активизируется подсвеченное изображениеImage3.Visible:=True;end;

И вконце при перемещении указателя манипулятора на форму активизация первого изображения

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);begin
Image2.Visible:=False;Image3.Visible:=False;Image1.Visible:=True;end;

[000969]



Содержание раздела