Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
8. Mär 2012
wenn do TApplicationEvents nicht als Komponente hast kannst Du auch folgendes machen (hoffentlich bei Turbo)
procedure TForm2.MyOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message= WM_LBUTTONDOWN then FMouseDown := true
else if Msg.message= WM_LBUTTONUP then FMouseDown := false
end;
procedure TForm2.FormCreate(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
8. Mär 2012
ok, Dir fehlt eine Komponente, deren Property OnMessage ist zu versorgen
ApplicationEvents1: TApplicationEvents;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
8. Mär 2012
Hast Du ApplicationEvents1 angehängt also das ganze an die Komponente gehängt, ist FMouseDown initialisiert (besser als Klassenvariable)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
8. Mär 2012
beep funktioniert bei mir nicht, so habe ich das gewünschte Ergebnis
procedure TForm2.SpinEdit1Change(Sender: TObject);
begin
if not FMouseDown then Showmessage('Done')
//windows.beep(200+random(1000),100)
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
7. Mär 2012
@Delphi-Laie
welche Delphi/Windowsversion setzt Du ein? Ich frage weil die Eventlösung bei mir mit D2010 und XE unter Server 2008 und Vista funktioniert.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
7. Mär 2012
vielleicht kannst Du aus diesem Ansatz etwas machen?
procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if Msg.message= WM_LBUTTONDOWN then FMouseDown := true
else if Msg.message= WM_LBUTTONUP then FMouseDown := false
end;