Delphide Yazılmış Kaynak Kodlar

Yazan: admin

6 Ekim 2010

Reklam Alanı

Ctrl alt del gizleme

SetWindowLong(Application.Handle,GWL_HWNDPARENT,WS_EX_TOOLWINDOW);
—————————————————————————————————————
Track bar konumu
showmessage(inttostr(TrackBar1.Position));
—————————————————————————————————————
Font sitili
Canvas.Font.Style := Canvas.Font.Style + [fsBold];
Canvas.Font.Name := `Courier New’;
Canvas.Font.Size := 14;
Canvas.Font.Style := Canvas.Font.Style + [fsBold];
Canvas.TextOut(20, 20, `Testing’);

—————————————————————————————————————
exe in içinde bulunduğu dosyayı çağırma
ExtractFilePath(Application.ExeName) + ‘serelif.wav’
mediaplayer1.filename:=extractfilepath(application.exename)+’serelif.wav’;
—————————————————————————————————————
{$R *.DFM}
function PlayWavFile(const FileName: string): Boolean;
begin
Result := PlaySound(PChar(FileName), 0, SND_ASYNC);
end;

!Dizinden okutma layWavFile(ExtractFilePath(Application.ExeName)+ ‘.\Veriler\sound.wav’);

—————————————————————————————————————
iki formu aynı anda gösterme
Görünmesini istediğin formu stayontop yapıp diğer formun istediğin yerinde konumlandırabilirsin.

Oncreate olayına sol ve üst koordinatlarını belirtebilirsin.

Form2.left:=form1.left+100;
fom2.top:=form1.top+300;
—————————————————————————————————————
FARE
fareyi takip eden nesne
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
RadioButton1.Left:=x-30;
RadioButton1.Top:=y+30;
end;

——————-
timeri nesneden ayarlamak :
Timer1.interval:=StrToInt(Edit1.Text)
—————-
timerin sadece bir sefer çalışması
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
YapilacakIslemler;
end;
—————————————————————————————————————
Açılış formu örneği değişik
____________________________________
procedure Delay(ms : longint);
var TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
end;

//test
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(‘Start’);
Delay(2000);//2sn
ShowMessage(‘End’);
end;

2. ÖRNEK
program Project2;

uses
Forms,
Unit1 in ‘Unit1.pas’ {Duzenfrm},
Unit2 in ‘Unit2.pas’ {Anafrm},
Unit3 in ‘Unit3.pas’ {Form3},
Unit4 in ‘Unit4.pas’ {AboutBox},
Unit5 in ‘Unit5.pas’ {yrdfrm},
Unit6 in ‘Unit6.pas’ {ayrfrm};

{$R *.res}

begin
Form3:=TForm3.Create(nil);//Form3 nin daha önce hazırlanmış olması gerekir.
Form3.Show; //splash ekranımız gürünsün
//Sleep(1000); //Windows unitini eklersek 1 saniye bekler
Application.ProcessMessages;
Form3.Update;
Application.Initialize;
Application.Title := ‘Açıklamalı Bilgisayar Sözlüğü’;
Application.CreateForm(TAnafrm, Anafrm);
Form3.Hide; ;//Ana form oluştuğunda Splash ekran saklanıyor
Form3.Release; ;//Bellekten atılıyor. Free ile olabilir
Application.Run;

End
___________________________________________________________________________
Alfa efekti
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var
i, cavb : 0..255;
begin

if AlphaBlend=False then
begin
AlphaBlendValue:=255;
AlphaBlend:=True;
end;
cavb:=AlphaBlendValue;
for i := cavb downto 0 do
begin
AlphaBlendValue := i;
Application.ProcessMessages;
Sleep(4);{saniyesi ne kadar çok olursa yavaş kapanması okadar çok olur}
end
end;

—————————————————————————————————————
KLAVYE DURUMU
const
CapPanel = 2;
NumPanel = 3;
ScrlPanel = 4;
DatePanel = 5;

procedure TAnafrm.Timer2Timer(Sender: TObject);
begin
with StatusBar1 do
begin
if GetKeyState(VK_CAPITAL) <> 0 then
StatusBar1.Panels[CapPanel].Text := ‘CAP’
else
StatusBar1.Panels[CapPanel].Text := ”;
if GetKeyState(VK_NUMLOCK) <> 0 then
StatusBar1.Panels[NumPanel].Text := ‘NUM’
else
StatusBar1.Panels[NumPanel].Text := ”;
if GetKeyState(VK_SCROLL) <> 0 then
StatusBar1.Panels[ScrlPanel].Text := ‘SCRL’
else
StatusBar1.Panels[ScrlPanel].Text := ”;
StatusBar1.Panels[DatePanel].Text := FormatDateTime(‘ dddddd’, now);
end;
—————————————————————————————————————

VERİ TABANI NOTLARIM
Tablo listbox’a aktarma
————————————————————————–
Table1.Refresh;
ListBox1.Clear;
table1.First;
while not table1.eof do begin
if ListBox1.Items.IndexOf(Table1Kelime.AsString)<0 then
ListBox1.Items.Add(Table1Kelime.AsString);
table1.Next;
—————————————————————————–
indekssiz arama :Table1.Locate(‘anlamı’,edit1.text,[LoCaseInsensitive]);
—————————————————————————–
uses FileCtrl;

filreleyerek arama

procedure TForm1.Edit2Change(Sender: TObject);
begin
ClientDataSet1.Filtered:=True;
ClientDataSet1.Filter:=’Kelime Like ”%’+Edit2.Text+’%”’;
end;

end.

Dbgrid de sıralama yapmak
procedure TAnaform.DBGrid1TitleClick(Column: TColumn);
begin
if Column.Index<4 then // ben yalnızca 4 alan tanımladığım için bu şartı koydum.
table1.IndexName:=inttostr(column.Index);
end;
RENGİ GRİ YAPMA
—————————————————————————————————————

//Kaynak : Delphi FAQs and TIs.chm;bir rengi gri yapmak
function RgbToGray(RGBColor : TColor) : TColor;
var
Gray : byte;
begin
Gray := Round((0.30 * GetRValue(RGBColor)) +
(0.59 * GetGValue(RGBColor)) +
(0.11 * GetBValue(RGBColor )));
Result := RGB(Gray, Gray, Gray);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Shape1.Brush.Color := RGB(255, 64, 64);
Shape2.Brush.Color := RgbToGray(Shape1.Brush.Color);
end;
—————————————————————————————————————
MEMO NUMARALANDIRMA
var
I: Integer;
label
MyLabel;
begin
Memo1.Clear;
I := 0;
MyLabel:
Inc(I);
Memo1.Lines.Add(IntToStr(I));
if I < 100 then
goto MyLabel;

procedure TForm1.Button5Click(Sender: TObject);
var
I: Integer;
label
MyLabel;
begin
Memo1.Clear;
I := 0;
MyLabel:
Inc(I);
Panel1.Lines.Add(IntToStr(I));
if I < 50 then
goto MyLabel;
—————————————————————————————————————
Sürükle bırak
//drony@mynet.com
// icq:266148308

öncelikle formumuza bir listbox ve edit ekliyoruz
ve listbox’ın dragmode değerini object inspector’dan “dmautomatic” olarak değiştiriyoruz
ve edit’in ondragover ve ondragdrop procedure’üne aşağıdaki kodları ekliyoruz.
procedure TForm1.Edit1DragOver
(Sender, Source: TObject;
X,Y: Integer; State:TDragState;
var Accept: Boolean);
begin
Accept := True;
end;

procedure TForm1.Edit1DragDrop
(Sender, Source: TObject; X,Y: Integer);
begin
(Sender as TEdit).Text :=
(Source as TListBox).Items
[(Source as TListBox).ItemIndex]
end;
—————————————————————————————————————
tliste arama
1. listbox1.ItemIndex:=ListBox1.Items.IndexOf(‘Aranacak Kelime’);

Daha basit 1 yol
listbox1.ItemIndex:=ListBox1.Items.IndexOf(Edit1.Text);
2. Bileşeni süreki taşımak
—————————————————————————————————————
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Button1.Left:=x-30;
Button1.Top:=y+30;
end;

end.
—————————————————————————————————————
procedure TForm1.Button1Click(Sender: TObject);
var
search: string;
begin
search := ‘mali’;
if SendMessage(ListBox1.Handle, lb_selectstring, – 1, Longint(PChar(search))) <> LB_ERR then
ShowMessage(‘Bulunulanlar: ‘ + IntToStr(ListBox1.ItemIndex));
end;

2.fonksiyon
var
search: string;
begin
search := Edit1.Text;
SendMessage(ListBox1.Handle, lb_selectstring, – 1, Longint(PChar(search)));
IntToStr(ListBox1.ItemIndex);
end;
end.
—————————————————————————————————————

ListBox Bileşenine Resim Ekleme
ComboBox1 ın Style özelliğini csOwnerDrawFixed yapın
ComboBox1 in items özelliğini kulanarak listeye eleman ekleyin.
imagelist e ImageList Editor’ü kullanarak resim ekleyin.

ve son olarak ListBox’un OnDrawItem olayına aşağıdaki kodu yazın

(* kullanılan doğru highlite rengi barındırır *)
combobox1.canvas.fillrect(rect);
(* Aktüel resmi çizer *)
imagelist1.Draw(comboBox1.Canvas,rect.left,rect.top,Index);
(* resimden sonra metini giren satırdır.*)
combobox1.canvas.textout(rect.left+imagelist1.width+2,rect.top,
combobox1.items[index]);
—————————————————————————————————————
CÜMLE FORMATLAMA
function formtyaz(frmy:ansistring):ansistring;
var
a:integer; ch:string;
begin
if length(frmy)<>0 then
begin
CASE FRMY[1] OF
‘ı’: FRMY[1] := ‘I’;
‘i’: FRMY[1] := ‘İ’;
else
begin
ch:=FRMY[1];
ch:=ansiUpperCase(ch);
FRMY[1] :=ch[1];

end;
end;
FOR A:=2 TO LENGTH(FRMY) DO
BEGIN
if (frmy[A-1]=’.') OR (frmy[A-1]=’ ‘) THEN
CASE FRMY[A] OF
‘ı’: FRMY[A] := ‘I’;
‘i’: FRMY[A] := ‘İ’;
else
begin
ch:=FRMY[a];
ch:=ansiUpperCase(ch);
FRMY[a] :=ch[1];

end;
end
else
CASE FRMY[A] OF
‘I’: FRMY[A] := ‘ı’;
‘İ’: FRMY[A] := ‘i’;
else
begin
ch:=FRMY[a];
ch:=ansilowerCase(ch);
FRMY[a] :=ch[1];

end;
end;
end;
result:=frmy; end;

end;
—————————————————————————————————————
Şifreleme
button 1.click;
if edit1.text=”then
label1.coption:=’lütfen edit’e bilgi giriniz’
else
begin
if(edit1.text=’AHMET’)or(edit1.text=’AHMET’)then
begin
form2.show
form1.hide;
end else
begin
label1.caption:=edit1.text;
end;
end;
end;
——————————————————————————–

SİSTEME ŞİFRE İLE GİRİŞ YAPMA
ComboBox ile kullanıcı adı edit ile şifre girişi ve giriş butonu.

procedure TForm2.BitBtn1Click(Sender: TObject);
var
username,password:string;
begin
username:=combobox1.text;
password:=maskedit1.Text;
if datamodule8.adotable1.locate(‘ADMIN ADI;ADMIN SIFRE’,vararrayof([username,password]),[])then
begin
showmessage(‘Hoşgeldiniz….’);
form1.show;
FORM2.Hide;
end
else
begin
showmessage(‘yanlış kullanıcı adı yada şifresi girdiniz…’);
i:=i+1;
maskedit1.Clear;

2.örnek
// Formun oncreate olayına…
procedure TForm1.FormCreate(Sender: TObject);
var
x,b:string;
begin
b:=’Buraya şifre giriniz’;
x:=inputbox(‘Programa Giriş’,'Programa girmek için şifreyi Giriniz:’,”);
if x=b then
application.messagebox(‘Programa Girişiniz Onaylandı.Tebrikler ..!’,'Tebrikler’,mb_ok+mb_defbutton1)
else
halt;
end;
end.

Alıntıdır.

Delphide Yazılmış Kaynak Kodlar

Yorum yapın

Arama

Select Language

Site Değerlendirme Anketi

Facebook Arkadaşlarımıza Katılın

Sık Kullanılanlar

Panel

Kategoriler

Bağlantılar