Focus von edit auf button 'lenken'?

Computer: Software & Programmierung Delphi & Pascal
#1

ich mache eine suchabfrage, wenn der user den suchtext im editfenster eingibt soll automatisch der focus auf den button springen der dann die suche auslöst! wie kann man das machen?
vielen dank im voraus
maikel

#2

ich mache eine suchabfrage, wenn der user den suchtext im
editfenster eingibt soll automatisch der focus auf den button
springen der dann die suche auslöst! wie kann man das machen?
vielen dank im voraus
maikel

Hi
Ich würde dieses Problem nicht so lösen.
Kontrolliere lieber, wann der Nutzer „Enter“ betätigt.
Durch Drücken von „Enter“ weißt du, dass der Suchbegriff vollständig eingegeben wurde.
Zwei Focuse auf dem Formular funktionieren nicht, glaub ich.

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_Return
then Showmessage(‚Enter gedrückt‘); //Prozedur einfügen
end;

Viel Erfolg

#3

Hi !
Ein Button hat die Eigenschaft „Default“. Wenn diese auf true steht wird mit der Taste Enter die Aktion ausgeführt.

Gruß Markus

#4

ich mache eine suchabfrage, wenn der user den suchtext im
editfenster eingibt soll automatisch der focus auf den button
springen der dann die suche auslöst! wie kann man das machen?
vielen dank im voraus
maikel

Hi, probiers mal damit:

// Edit1: Suchmaske
// Button1: der betreffende Button
// Form1: Das suchfenster
// Passe die komponentennamen entsprechend an.

// Edit1.OnChange:
procedure TForm1.Edit1.Change(Sender: TObject);
begin
Button1.Default := True;
// Lenkt bei eingabe den focus auf den button, die maske
// bleibt aber aktiv
end ;

// Button1.Click:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Default := False;
Form1.ActiveControl := Edit1;
// lenkt den focus zurück zur Suchmaske, button ist nicht
// mehr ‚gefocussed‘, die prozedur geht von vorne los
end ;

das müsste funzen, ich habs ausprobiert.

Have a lot of fun
Christoph