uintptr

Bu zamana kadar katkılarından dolayı teşekkür eder, gelecekte de başarılar dilerim.

Çok iyi moderatördünüz hocam.

Moderatörlüğü bıraktınız anlaşılan.

pfp ateş ediyor

iki gevrek versene ustam

3 dakika bi' yağmurcuk yağdı gitti. 10 dakika falan yağsaydın da azıcık serinleseydik...

1 gün geç olsa da doğum günün kutlu olsun değerli insan!

Doğum günün kutlu olsun kral.

Doğum günün kutlu olsun uyinpitere.

Tarihi bir eseri kullanarak, doğum gününüzü en içten dileklerim ile kutluyorum, iyi ki doğdunuz!

[CODE title="Doğum günü kutlaması" highlight="28,45"]unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
btnBirthday: TButton;
procedure btnBirthdayClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnBirthdayClick(Sender: TObject);
begin
ShowMessage('Doğum Gününüz Kutlu Olsun!');
end;

end.

object Form1: TForm1
Caption = 'Doğum Gününüz Kutlu Olsun'
ClientHeight = 150
ClientWidth = 300
Position = poScreenCenter
BorderStyle = bsSingle
OnCreate = FormCreate
object btnBirthday: TButton
Left = 80
Top = 50
Width = 140
Height = 40
Caption = 'Doğum Gününüz Kutlu Olsun!'
OnClick = btnBirthdayClick
end
end[/CODE]