Toolbar kes,kopyala,yapıştır,geri al

Toolbar,4button,1edit ekleyiniz. Butonlar kes,kopyala,yapıştır,geri al işlemlerini yapalım.

procedure TForm1.ToolButton1Click(Sender: TObject);

 

begiN

 

edit1.perform(wm_cut,0,0);

 

end;

 

  

 

procedure TForm1.ToolButton2Click(Sender: TObject);

 

begin

 

edit1.perform(wm_copy,0,0);

 

end;

 

  

 

procedure TForm1.ToolButton3Click(Sender: TObject);

 

begin

 

edit1.perform(wm_paste,0,0);

 

end;

 

  

 

procedure TForm1.ToolButton4Click(Sender: TObject);

 

begin

 

edit1.perform(em_undo,0,0);

 

end;

 

end.