Delphi Forum

[Error] Unit1.pas(28): Undeclared identifier: 'TRegistry'
[Error] Unit1.pas(32): Missing operator or semicolon hata veriyor

Buttona bağlamadan kullanıcının haberi olmadan bu kodu kullanamazmıyım?

nasıl yapacağıma dair kod yazabilirseniz çok sevinirim.

sonra onu nasıl acacam ?
bir kod varmı yardım edebilirmisin?

Arkadaşlar;
Programa mesela 01/01/2006 ya geldiği zaman kullanım süresi doldu diyecek ve tarihi ileri veya geri yada aynı tarihte iken program çalışmayacak böyle birşeyi nasıl yapabilirim?

mrmcop çok teşekkür ederim yazdığınız kod işimi cözdü.

Bu şekilde Tutil32.exe calıştı fakat işlem bittikten sonra geri dönüşte Form8.Table1.Open; Form8.Table1.Open; nasıl yapabilirim? begin if Application.MessageBox('Programda Index hatası, düzenleme yapmak için çalıştırılması gerekir.Bu işlemi Onaylıyormusunuz ?','UYARI', Mb_YesNo+Mb_IconQuestion) = 6 ...

procedure TForm3.BitBtn7Click(Sender: TObject); begin if Application.MessageBox('Programda Index hatası, düzenleme yapmak için çalıştırılması gerekir.Bu işlemi Onaylıyormusunuz ?','UYARI', Mb_YesNo+Mb_IconQuestion) = 6 then Form8.Table1.close; Form7.Table1.close; WINEXEC('C:\PUNTASWIN\TUTIL32.EXE',S...

Arkadaşlar bir button yardımı ile Tutil32.exe yi çalıştırıyorum fakat programdaki Table1 ve Table2 nin kapatılması gerekiyor işlem yapması için bunu nasıl çözeblirim aşağıda ki kod çalışıyor buraya ekleme yaparak halledebilirmiyim birde programa geri dönüldüğünde program Table1 ve Table2 açık olarak...

Bu kod düzgün çalışıyora birde benim Button2 var orda sadece Close; yazılı ama Edit1.SetFocus a takılıyor çıkış yapamıyorum. procedure TForm2.Edit1Exit(Sender: TObject); begin If Edit1.Text='1' Then Begin Edit3.Text:='Tüm Modüller'; end else Begin ShowMessage('YANLIŞ KULLANICI SEÇTİNİZ'); Edit1.SetF...

Arkadaşlar bu şekilde kontrol yaptırıyorum fakat setFocus a takılıyor nasıl çözebilirim ?


procedure TForm2.Edit1Exit(Sender: TObject);
begin
If Edit1.Text='1' Then
Begin
Edit3.Text:='Tüm Modüller';
end
else
Begin
ShowMessage('YANLIŞ KULLANICI SEÇTİNİZ');
Edit1.SetFocus;
end;
End;

Arkadaşlar ; Sil buttonu ile ; procedure TForm4.Button3Click(Sender: TObject); Var ForSil:Integer; begin ForSil:=Application.MessageBox('Silmek İstediğinizden Eminmisiniz ?','Kayıt Silme', Mb_YesNo+Mb_IconQuestion); If ForSil=IDYes Then begin Table1.Delete; end; end; bu şekilde sildiriyorum fakat do...

Arkadaşlar İnstall Shield de mesela TAKSIT dizini oluşturuyorum c: sürücüsünde bunun içerisine DATA2006 dizinide açıp sadece db ve px dosyalarını nasıl kopyalatabilirim?

Arkadaşlar bu şekilde kontrol yaptırıyorum ama çıkışda sorun yaşıyorum başka ne şekilde boşluk kontrolu yaptırabilirim? Setfocus çıkışa bir türlü izin vermiyor. procedure TForm4.DBEdit38Exit(Sender: TObject); begin if DBEdit38.Text='' then begin Showmessage('Lütfen Müşteri Kodunu Giriniz.'); DBEdit3...

tşk. bu şekilde sorunum cözüldü.