Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Garfield,
24. Mai 2008
Vielleicht so:
procedure TForm1.CMMouseLeave(var Message: TMessage);
var
ptWork : TPoint;
begin
GetCursorPos(ptWork);
if WindowFromPoint(ptWork) <> BitBtn2.Handle
then begin
BitBtn2.Glyph := nil;
ImageList1.GetBitmap(1, BitBtn2.Glyph);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Garfield,
24. Mai 2008
Vielleicht reicht das Lesen des ganzes Beitrages?
:gruebel: Im Source ist davon nichts zu finden:
procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn2Exit(Sender: TObject);
Bei D7 gibt es kein OnMouseLeave. OnMouseMove und OnExit funktionieren. Das OnExit eben nur auftritt, wenn der BitBtn den Eingabefokus verliert.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Garfield,
24. Mai 2008
Sehr gut möglich, denn die Deklarationen erfolgen als Private:
Normal sieht es so aus:
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1MouseEnter(Sender: TObject);
procedure BitBtn1MouseLeave(Sender: TObject);
private