Tab

Med tab skifter du normalt fra editboks til editboks, hvad vil du have der skal ske ?

Du kan ændre rækkefølgen på hvilke elmenter der springes til ved at rette i taborder for de enkelte komponenter

den skal rette en label's caption

Så skal du bruge editboksens exit eventet


procedure TForm1.Edit1Exit(Sender: TObject);
begin
  label1.Caption := 'Hesten er grøn'
end;

så gør den det vel også når man bare klikker væk fra den ?

ja og det må den ikke ?

nej...

nedenstående sætter du ind under type sammested som dine andre procedurer

procedure AppMessages(var Msg: TMsg; var Handled: Boolean);
-----------------------------------------------------------


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessages;

end;
----------------------------------------------------------------

procedure TForm1.AppMessages(var Msg: TMsg; var Handled: Boolean);
begin
  case Msg.Message of
    WM_KEYDOWN:
      if Msg.WParam = VK_TAB then
      begin
        if Msg.Hwnd = Edit1.Handle then
        begin

          Handled := TRUE;
          // gør hvad du vil her
          showmessage('Din slemme dreng, du trykkede TAB i editboxen');
        end;
      end;
  end;
  inherited;
end;

Stoney

Altså kun den første linie under type

Stoney

ok, tak...