Så prøve jeg lige gang!!!

Her er min kode :

procedure TForm1.Key(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // F1 lukker formen
if key = vk_F1 then close;
// F2 skulle vise værdi fra Edit1
if key = vk_F2  then Vis.Caption := Edit1.Text

end;

procedure TForm1.Vis_VClick(Sender: TObject);
begin
  Vis.Caption := Edit1.Text
end;

end.

Er det din knap der skal ændre tekst

Stoney

du klikker på din edit som med formen. Går ned til den event kaldet OnKeyDown, dobbelt klikker.
I den pocedure som er lavet skriver du:

if key = vk_F2 then
showmessage(Edit1.Text);

Det knap er bare for sjovt!

det når men stå i Edit1, at men skulle trykke på F2

det men er ved at skrive

så det visse i

Vis.Caption := Edit1.Text


Martin

hvad er vis.caption

caption på din form eller kanp eller hvad ?

Stoney

Stoney

Vis.caption er en TPanel

dkn

ok jeg prøve lige det

--------

men det skulle være i en TPanel

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_F2 then
panel1.Caption := edit1.Text;
end;

Stoney

så fandt jeg ud af det!!!!