19.04.2024, 13:37
Sprache ändern
Registrieren
Anmelden
Sie sind nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Re: delphi: wie bei mausklick TEdit verlassen?
Dienstag, 5. August 2003, 19:24
PAB das ist fies!
Spätestens wenn er das erste Panel einsetzt und nur OnMouse im Form hat, dann ist's vorbei mit dem "überall" hinklicken...
Bei sowas muß man die Eventqueue selber auswerten...
Beispiel:
und eingebunden wird das in Form.OnCreate so:
Also was macht das Beispiel eigentlich? Nun, der Code soll bewirken, das ein Rechtsclick auf TabControl1 auch die Tabs umschaltet (tut es normal nicht und das ist der einzige Weg, das es das doch macht). Also fang ich alle Rechtsklicks (EventID = 517) ab und sage TabControl1 es soll einen Linksclick (EventID=513) verarbeiten.
In deinem Fall müßtest du dann also 513 und 517 abfangen und den Focus aus TEdit nehmen.
Achja, mit
verhindert man, das dieses Event noch weiter verarbeitet wird. Ohne änderung wird das Signal so weiter verarbeitet, als wäre nichts passiert.
gruß, Texx
Spätestens wenn er das erste Panel einsetzt und nur OnMouse im Form hat, dann ist's vorbei mit dem "überall" hinklicken...
Bei sowas muß man die Eventqueue selber auswerten...
Beispiel:
|
Quellcode |
1 2 3 4 5 6 7 |
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if(Msg.message = 517)then
begin
TabControl1.Perform(513,msg.wParam,msg.lParam);
end;
end;
|
und eingebunden wird das in Form.OnCreate so:
|
|
Quellcode |
1 |
Application.OnMessage := AppMessage; |
Also was macht das Beispiel eigentlich? Nun, der Code soll bewirken, das ein Rechtsclick auf TabControl1 auch die Tabs umschaltet (tut es normal nicht und das ist der einzige Weg, das es das doch macht). Also fang ich alle Rechtsklicks (EventID = 517) ab und sage TabControl1 es soll einen Linksclick (EventID=513) verarbeiten.
In deinem Fall müßtest du dann also 513 und 517 abfangen und den Focus aus TEdit nehmen.
Achja, mit
|
|
Quellcode |
1 |
Handled := true; |
verhindert man, das dieses Event noch weiter verarbeitet wird. Ohne änderung wird das Signal so weiter verarbeitet, als wäre nichts passiert.
gruß, Texx
Re: delphi: wie bei mausklick TEdit verlassen?
Dienstag, 5. August 2003, 22:23
@Texx:
Hatte mich verlesen. Ich dachte, er wollte das schon ändern, wenn er das Edit verlässt.
Dann hätte ein OnMouseOut gereicht.
Allerdings seh ich grad, dass es in Delphi selbst kein OnMouseOut gibt, hatte ich wohl mal hinzugefügt
Hatte mich verlesen. Ich dachte, er wollte das schon ändern, wenn er das Edit verlässt.
Dann hätte ein OnMouseOut gereicht.
Allerdings seh ich grad, dass es in Delphi selbst kein OnMouseOut gibt, hatte ich wohl mal hinzugefügt
Re: delphi: wie bei mausklick TEdit verlassen?
Mittwoch, 6. August 2003, 18:33
Richtig, handled:=true sagt aus, das du den Event schon ausgewertet und verarbeitet hast und er nicht mehr weiterverarbeitet werden soll. (er wurde also 'gehandled')
-
Die Events wie Linksklick und Rechtsklick hab ich selber rausgefunden (Siehe 1), weil die (meines Wissens nach) nirgends in Delphi definiert sind. Andere hingegen, wie 'WM_KEYDOWN' sind (IMO) in windows.pas definiert.
1) Rausgefunden hab ich die, indem ich alle events einfach mal in eine Liste geschrieben hab und geguckt hab, was bei einem Links- bzw. Rechtsklick so alles für Messages kommen. So kann man so ziemlich alles rausfinden...
Alle Messeges die die VCL definiert hat fangen mir WM_ an.
Also viel vergnügen!
gruß, Texx
-
Die Events wie Linksklick und Rechtsklick hab ich selber rausgefunden (Siehe 1), weil die (meines Wissens nach) nirgends in Delphi definiert sind. Andere hingegen, wie 'WM_KEYDOWN' sind (IMO) in windows.pas definiert.
1) Rausgefunden hab ich die, indem ich alle events einfach mal in eine Liste geschrieben hab und geguckt hab, was bei einem Links- bzw. Rechtsklick so alles für Messages kommen. So kann man so ziemlich alles rausfinden...
Alle Messeges die die VCL definiert hat fangen mir WM_ an.
Also viel vergnügen!
gruß, Texx
Zitat von »Texx«