[ Linkleri Görebilmeniz Için Üye Olmaniz Gerekmektedir... Üye Olmak Için Buraya Tiklayin...]


bu programda soyadını form1 in captionuna yapıştırmak aşağıdaki kodların hepsi soyadı kopyala buttonuna yazılır


procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption := Edit2.Text;
end;

procedure TForm1.Button1Enter(Sender: TObject);
begin
StatusBar1.SimpleText := 'Soyadını bnaşlığa kopyalamak için tıklayınız';
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
StatusBar1.SimpleText := 'Adınızı giriniz';
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
StatusBar1.SimpleText := 'Soyadınızı giriniz';
end;

procedure TForm1.Edit3Enter(Sender: TObject);
begin
StatusBar1.SimpleText := 'Şifrenizi giriniz';
end;