please help
2 отговора
1 прегледа
please help
zdraveite,
bih iskal da vi pomolia za malko pomosht - na delphi 5 sam napravil forma s 2 elementa. OnClick - edinia e enabled, a OnDblClick - drugiat. bih iskal obache parviat da e enabled pri clickvane s levia buton, a vtoria - s desnia, no ot helpa taka i ne razbrah kak stova tova.
ako niakoi ima vreme i jelanie - neka da opishe kak stava...
blagodaria vi
bih iskal da vi pomolia za malko pomosht - na delphi 5 sam napravil forma s 2 elementa. OnClick - edinia e enabled, a OnDblClick - drugiat. bih iskal obache parviat da e enabled pri clickvane s levia buton, a vtoria - s desnia, no ot helpa taka i ne razbrah kak stova tova.
ako niakoi ima vreme i jelanie - neka da opishe kak stava...
blagodaria vi
в отговор на abolutno nachinaesht
#2
Re: please help
Използвай събитието MouseUp на формата.
Например:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Mask:boolean;
begin
Mask:=Button in [mbLeft];
Button1.Enabled:=Mask;
Button2.Enabled:=not Mask;
end;
Например:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Mask:boolean;
begin
Mask:=Button in [mbLeft];
Button1.Enabled:=Mask;
Button2.Enabled:=not Mask;
end;