Thema: Delphi Panel als ShowModal?

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#4

AW: Panel als ShowModal?

  Alt 5. Jan 2015, 15:17
Du könntest doch im OnExit des Panels prüfen, ob
- ein Wert verändert wurde
- ActiveControl gesetzt ist
- dessen Parent gesetzt ist
- dieser Parent Dein Panel ist

Wenn die ersten Punke zutreffen und der letzte nicht, kannst Du ja ActiveControl auf das Panel oder eins der Edits setzen.
Delphi-Quellcode:
procedure TFormTest.Panel1Exit(Sender: TObject);
begin
  if FChanged then //FChanged wird bei Änderung eines Edits gesetzt
    if Assigned(ActiveControl) and Assigned(ActiveControl.Parent) and
      (ActiveControl.Parent <> Panel1) then
      ActiveControl := Edit1; //erstes Edit auf dem Panel
end;
Nur so eine Idee.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat