OnClick wird nicht ausgeführt

[Bummi]

klingt als ob Du OnEnter und OnExit verwenden solltest ..

[Bonni]

Das mache ich ja. OnClick habe ich noch nie benutzt.
Probier es aus: Wenn Du ein Editfeld hast und bei OnEnter eine ShowMessage absetzt, dann bleibt der Caret mehr oder weniger "in der Luft hängen" und wandert, je nach Mausbewegung, mit. Erst bei einem erneuten reinklicken verhält sich das Editfeld wieder "normal".

[DeddyH]

Das kann ich bestätigen. Schnell zusammengeschusterter Workaround:

Delphi-Quellcode:

const PM_MSG = WM_USER + 42;

type
  TForm1 = class(TForm)
    ...
  private
    { Private-Deklarationen }
    procedure PMMsg(var Message: TMessage); message PM_MSG;
    ...
  end;

...

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  PostMessage(Handle, PM_MSG, 0, 0);
end;

procedure TForm1.PMMsg(var Message: TMessage);
begin
  ShowMessage('Enter');
end;

Hth

[Bonni]

Suuuper ! Vielen Dank - funktioniert in meinem Testprojekt.

Werde es übers Wochenende in das richtige einbauen.
Arbeite auch mit den LMD-Tools (LMDSpinedit und LMDMaskedit) -> die sind da hartnäckiger. Da klappt es immer noch nicht. Sieht auch aus, als ob da beim reinklicken noch irgend ein Drag-Modus automatisch aktiviert wird (Cursor ändert sich entsprechend).

Werde sie wohl ersetzen müssen ...

Nochmals besten Dank ! ! ! !

[himitsu]

Zitat:

Delphi-Quellcode:

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

versucht, auch mit Post- und SendMessages aber das OnClick

Wenn ich mir anseh WO du hincklickst, dann wundert es mich nicht, daß dort, wo du es erwartest, kein Klick ankommt.