

SimaWB yazdı:Yine "hata veriyor" demişsiniz ama hatayı yazmamışsınız
Biz tahmin yaparak devam edelim en iyisi: XE8 için System.Classes unitini eklemelisiniz.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
procedure prc_Sifirla;
begin
(Sender as TButton).Hint := IntToStr(GetTickCount);
(Sender as TButton).Tag := 1;
(Sender as TButton).Caption := IntToStr((Sender as TButton).Tag);
end;
begin
if (Sender as TButton).Hint = '' then
prc_Sifirla
else
begin
if (GetTickCount - StrToInt((Sender as TButton).Hint) ) <= 5000 then
begin
(Sender as TButton).Tag := (Sender as TButton).Tag + 1;
if (Sender as TButton).Tag = 3 then
(Sender as TButton).Caption := '5 sn. doldu'
else
if (Sender as TButton).Tag < 3 then
(Sender as TButton).Caption := IntToStr((Sender as TButton).Tag)
else
if (Sender as TButton).Tag > 3 then
begin
prc_Sifirla;
(Sender as TButton).Caption := IntToStr((Sender as TButton).Tag);
end;
end
else
prc_Sifirla;
end;
end;
Kod: Tümünü seç
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
procedure prc_Sifirla;
begin
(Sender as TButton).Hint := IntToStr(GetTickCount);
(Sender as TButton).Tag := 1;
(Sender as TButton).Caption := IntToStr((Sender as TButton).Tag);
end;
begin
if (Sender as TButton).Hint = '' then
prc_Sifirla
else
begin
if (GetTickCount - StrToInt((Sender as TButton).Hint) ) <= 5000 then
begin
(Sender as TButton).Tag := (Sender as TButton).Tag + 1;
if (Sender as TButton).Tag = 3 then
(Sender as TButton).Caption := '5 sn. doldu'
else
if (Sender as TButton).Tag < 3 then
(Sender as TButton).Caption := IntToStr((Sender as TButton).Tag)
else
if (Sender as TButton).Tag > 3 then
begin
prc_Sifirla;
(Sender as TButton).Caption := IntToStr((Sender as TButton).Tag);
end;
end
else
prc_Sifirla;
end;
end;
end.
Öncelikle siz farklı cihazlar için derlenebilecek proje geliştiriyorsunuz. (File->New->Multi Device Application) Eğer uygulamanız sadece Windows altında çalışacak ise yeni projeye başlar iken File->New->VCL Forms Application seçeneğini seçmelisiniz.erdogan_ozkaya yazdı:hocam cevabınız için teşekkür ederim fakat çalışmadı
+1greenegitim yazdı:![]()
![]()
![]()
http://www.getgnu.org/gnulinux/gnulinux ... rulur.html yanlış anlaşılma olmasın bu linkteki yazı kendim içinde geçerlidir.
SimaWB yazdı:Sorduğunuz sorunun cevabı bu yazdığınız kodlar olduğuna emin misiniz?