Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Clipboard kullanımı  (Okunma sayısı 1730 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ALUCARD

  • Delphi 1 Level 5
  • *****
  • İleti: 44
  • Rep: +2/-1
  • Cinsiyet: Bay
    • Emin Bilgi İşlem Merkezi
Clipboard kullanımı
« : 31 Aralık 2005 12:27:30 »
Kod: [Seç]
procedure CopyButtonClick(Sender: TObject);
begin
If ActiveControl is TMemo then TMemo(ActiveControl).CopyToClipboard;
If ActiveControl is TDBMemo then TDBMemo(ActiveControl).CopyToClipboard;
If ActiveControl is TEdit then TEdit(ActiveControl).CopyToClipboard;
If ActiveControl is TDBedit then TDBedit(ActiveControl).CopyToClipboard;
end;

procedure PasteButtonClick(Sender: TObject);
begin
If ActiveControl is TMemo then TMemo(ActiveControl).PasteFromClipboard;
If ActiveControl is TDBMemo then TDBMemo(ActiveControl).PasteFromClipboard;
If ActiveControl is TEdit then TEdit(ActiveControl).PasteFromClipboard;
If ActiveControl is TDBedit then TDBedit(ActiveControl).PasteFromClipboard;
end;
Kayıtlı
Delphi Dilinin Kemiği Yokki...

ASE YAZILIM
EMİN YAZILIM
Sayfa: [1]   Yukarı git
« önceki sonraki »