memo tex içindeki kodu çalıştırma

[erdogan_ozkaya]

arkadaşlar,

memo1.text:='form2.show' yazıcam butona kliklediğimde form2 açılcak veya 3,,4,,

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
????????????????????????????
???????????????????????*????
end;

teşekkürler

[G.Arkas]

Kod: Tümünü seç

if Memo1.Text = 'Form2.Show' then
Form2.Show;

[erdogan_ozkaya]

hocam öyle değil icabında form4.show diycem veya table1.delete diycem cevabın için teşekkürler

[erdogan_ozkaya]

çözümü şöyle buldum,

işine yarayan arkadaşlara fikir olur belki

Kod: Tümünü seç

procedure TCEK_BORDROSU.CARI_KOD_TEXTButtonClick(Sender: TObject);
begin
      ORTAK_CARI_KART_SECIMI.CARI_PENCERE_TEXT.Text:=Screen.ActiveForm.Name;
      ORTAK_CARI_KART_SECIMI.Showmodal;
end;

Kod: Tümünü seç

procedure TORTAK_CARI_KART_SECIMI.SpeedButton1Click(Sender: TObject);
begin
        if (qryCARI_KART_DB.RecordCount<=0)
        then ShowMessage('               Kayıt Bulunumıyor                  ') else
   begin

      if CARI_PENCERE_TEXT.Text='FATURA_KAYIT'
      then FATURA_KAYIT.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='CEK_BORDROSU'
      then CEK_BORDROSU.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='SERVIS_KABUL_PENCERE'
      then SERVIS_KABUL_PENCERE.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='STOK_HAREKET_ARAMA'
      then STOK_HAREKET_ARAMA.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='SERVIS_KAYIT_TOPLU_FATURA_GONDER'
      then SERVIS_KAYIT_TOPLU_FATURA_GONDER.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='NAKIT_GIRIS_CIKIS'
      then NAKIT_GIRIS_CIKIS.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='HAVALE_ISLEM_PENCERE'
      then HAVALE_ISLEM_PENCERE.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='FATURA_ARAMA_PENCERE'
      then FATURA_ARAMA_PENCERE.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='CEK_BORDRO_ARAMA'
      then CEK_BORDRO_ARAMA.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      if CARI_PENCERE_TEXT.Text='Cari_Kart_Ekleme'
      then Cari_Kart_Ekleme.CARI_KOD_TEXT.Text:=qryCARI_KART_DB.fieldbyname('Cari_ID').asstring;

      Close;
   end;
 end;