ich habe mal eine ganz simple, blöde Frage; bitte lacht mich nicht aus.
Panel1 auf ein Formular legen. Auf dieses Panel1 ein Edit1.
Auf das Formular direkt ein weiteres Edit2.
Dann:
Code: Alles auswählen
Panel1.OnExit := Panel1Exit;
procedure TForm1.Panel1Exit(Sender: TObject);
begin
color := clBlue;
end;
Was passiert? Gar nichts.
Kein OnExit vom Panel.
Zumindest in der Version: 0.9.26.2
In Delphi funktioniert es völlig einwandfrei; OnExit vom Panel kommt.
Delphi sagt dazu:
"... Wird zwischen Steuerelementen in getrennten Container-Objekten (z.B. TPanel und TGroupBox) gewechselt, wird das Ereignis OnExit des untergeordneten Steuerelements vor dem des Containers ausgelöst..."
Völlig korrekt, sonst würde "Panel1.OnExit" ja überhaupt keinen Sinn ergeben, wenn da kein event kommt.
Aber in Lazarus kommt kein OnExit vom Container.
Habe da eben überall herumgesucht, bin aber nicht fündig geworden; auch die Hilfe zu TPanel sagte nur:
>>>
An error has been encountered in accessing this page.
1. Server: lazarus-ccr.sourceforge.net
2. URL path: /docs/lcl/extctrls/tpanel.html
3. Error notes: NONE
4. Error type: 404
5. Request method: GET
6. Request query string: NONE
7. Time: 2010-12-30 23:56:15 UTC (1293753375)
<<<
Ich vermute da mal einen bug in der
0.9.26.2;
aber bitte klärt mich auf!
Wir sehen uns nächstes Jahr wieder in Ulm,
Euch allen ein gutes und erfolgreiches 2011!
cu Harald