*** Delphi x.0 sürümleri için (Delphi 2005 ve sonrası sürümlerde denenmedi) ;
* Bileşen Hint'lerinin StatusBar'da gösterimi.
* Formlardaki nesnelerin kontrolü.
* POS, Trim fonksiyonlarının kullanımına örnek.
* 4 Ad 1 Soyad için bölme yapar. Geliştirmek sizin elinizde.
//*.pas ve *.dfm kısımları
//*.pas kısmı
unit AdSoyad;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ExtCtrls, Buttons;
type
Tfrm_AdSoyadBol = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel; Panel2: TPanel; Panel3: TPanel;
Panel4: TPanel; Panel5: TPanel; Panel6: TPanel;
Panel7: TPanel;
Edit_AdSoyad: TEdit; Edit_Ad1: TEdit; Edit_Ad2: TEdit;
Edit_Ad3: TEdit; Edit_Ad4: TEdit; Edit_Soyad: TEdit;
Edit_Adi: TEdit; Edit_Soyadi: TEdit;
BitBtn_Basla: TBitBtn; BitBtn_Kapat: TBitBtn;
BitBtn_Temizle: TBitBtn;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn_BaslaClick(Sender: TObject);
procedure BitBtn_KapatClick(Sender: TObject);
procedure Edit_AdSoyadChange(Sender: TObject);
procedure BitBtn_TemizleClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Edit_AdSoyadExit(Sender: TObject);
procedure Edit_AdSoyadKeyPress(Sender: TObject; var Key: Char);
procedure Edit_Ad1Click(Sender: TObject);
procedure BitBtn_KapatMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
procedure DisplayHint(Sender: TObject);
procedure Ad_Soyad_Bol;
procedure Saha_Temizle;
procedure Saha_Giris_Ac;
procedure Saha_Giris_Kapa;
end;
var
frm_AdSoyadBol: Tfrm_AdSoyadBol;
AdSoyad: string;
Basilan_Tus: TObject;
implementation
{$R *.DFM}
procedure Tfrm_AdSoyadBol.DisplayHint(Sender: TObject);
begin
//Bileşen Hint'lerinin StatusBar'da gösterimi
StatusBar1.Panels.Items[0].Text:= Application.Hint;
end;
procedure Tfrm_AdSoyadBol.FormCreate(Sender: TObject);
begin
//Bileşen Hint'lerinin StatusBar'da gösterimi
Application.ShowHint:= True;
Application.OnHint:= DisplayHint;
end;
procedure Tfrm_AdSoyadBol.FormShow(Sender: TObject);
begin
Saha_Temizle;
Saha_Giris_Kapa;
BitBtn_Basla.Enabled:= False;
BitBtn_Temizle.Enabled:= False;
end;
procedure Tfrm_AdSoyadBol.BitBtn_BaslaClick(Sender: TObject);
begin
Ad_Soyad_Bol;
Saha_Giris_Kapa;
BitBtn_Basla.Enabled:= False;
BitBtn_Temizle.Enabled:= True;
end;
procedure Tfrm_AdSoyadBol.BitBtn_KapatClick(Sender: TObject);
begin
Close;
end;
procedure Tfrm_AdSoyadBol.Saha_Temizle;
var I: integer;
begin
//Form'daki nesnelerin kontrölü
for I:= 0 to ComponentCount - 1 do
if (Components[I] is TEdit) then TEdit(Components[I]).Text:= '';
end;
procedure Tfrm_AdSoyadBol.Saha_Giris_Kapa;
var I: integer;
begin
//Form'daki nesnelerin kontrölü
for I:= 0 to ComponentCount - 1 do
if (Components[I] is TEdit) then TEdit(Components[I]).ReadOnly:= True;
Edit_AdSoyad.ReadOnly:= False;
end;
procedure Tfrm_AdSoyadBol.Saha_Giris_Ac;
var I: integer;
begin
//Form'daki nesnelerin kontrölü
for I:= 0 to ComponentCount - 1 do
if (Components[I] is TEdit) then TEdit(Components[I]).ReadOnly:= False;
end;
procedure Tfrm_AdSoyadBol.Edit_AdSoyadChange(Sender: TObject);
begin
if Edit_AdSoyad.Text = '' then BitBtn_Basla.Enabled:= False;
end;
procedure Tfrm_AdSoyadBol.Ad_Soyad_Bol;
Label 1;
var SAT1_AD,Ad1,Ad2,Ad3,Ad4,Ad5,Ad,Soyad: string;
begin
//Ad Soyad bölme ve birden fazla ad birleştirme
AdSoyad:= Edit_AdSoyad.Text;
SAT1_AD:= Edit_AdSoyad.Text;
Ad1:= SAT1_AD; Ad2:= ''; Ad3:= ''; Ad4:= ''; Ad5:= '';
if Pos(' ', SAT1_AD) > 0 then
begin
Ad1:= Copy(SAT1_AD,1,Pos(' ', SAT1_AD));
SAT1_AD:= Copy(SAT1_AD,Pos(' ', SAT1_AD)+1,Length(SAT1_AD));
Edit_Ad1.Text:= Ad1;
Edit_Soyad.Text:= SAT1_AD;
if Pos(' ', SAT1_AD) = 0 then GoTo 1;
if Pos(' ', SAT1_AD) > 0 then
begin
Ad2:= Copy(SAT1_AD,1,Pos(' ', SAT1_AD));
SAT1_AD:= Copy(SAT1_AD,Pos(' ', SAT1_AD)+1,Length(SAT1_AD));
Edit_Ad1.Text:= Ad1;
Edit_Ad2.Text:= Ad2;
Edit_Soyad.Text:= SAT1_AD;
if Pos(' ', SAT1_AD) = 0 then GoTo 1;
if Pos(' ', SAT1_AD) > 0 then
begin
Ad3:= Copy(SAT1_AD,1,Pos(' ', SAT1_AD));
SAT1_AD:= Copy(SAT1_AD,Pos(' ', SAT1_AD)+1,Length(SAT1_AD));
Edit_Ad1.Text:= Ad1;
Edit_Ad2.Text:= Ad2;
Edit_Ad3.Text:= Ad3;
Edit_Soyad.Text:= SAT1_AD;
if Pos(' ', SAT1_AD) = 0 then GoTo 1;
if Pos(' ', SAT1_AD) > 0 then
begin
Ad4:= Copy(SAT1_AD,1,Pos(' ', SAT1_AD));
Ad5:= Copy(SAT1_AD,Pos(' ', SAT1_AD)+1,Length(SAT1_AD));
Edit_Ad1.Text:= Ad1;
Edit_Ad2.Text:= Ad2;
Edit_Ad3.Text:= Ad3;
Edit_Ad4.Text:= Ad4;
Edit_Soyad.Text:= Ad5;
if Pos(' ', SAT1_AD) = 0 then GoTo 1;
end;
end;
end;
end;
Ad1:= Trim(Ad1); Ad2:= Trim(Ad2); Ad3:= Trim(Ad3);
Ad4:= Trim(Ad4); Ad5:= Trim(Ad5);
1://
if Ad5 <> '' then
begin
Ad:= Ad1 + ' ' + Ad2 + ' ' + Ad3 + ' ' + Ad4;
Soyad:= Ad5;
end
else if Ad5 = '' then
begin
Ad:= Ad1 + ' ' + Ad2 + ' ' + Ad3;
Soyad:= SAT1_AD;
end
else if Ad3 <> '' then
begin
Ad:= Ad1 + ' ' + Ad2;
Soyad:= Ad3;
end
else begin
Ad:= Ad1;
Soyad:= Ad2;
end;
Edit_Adi.Text:= Ad;
Edit_Soyadi.Text:= Soyad;
end;
procedure Tfrm_AdSoyadBol.BitBtn_TemizleClick(Sender: TObject);
begin
Saha_Giris_Ac;
Saha_Temizle;
if Edit_AdSoyad.CanFocus then Edit_AdSoyad.SetFocus;
Edit_AdSoyad.Text:= Ogr_AdSoyad;
Saha_Giris_Kapa;
BitBtn_Temizle.Enabled:= False;
end;
procedure Tfrm_AdSoyadBol.Timer1Timer(Sender: TObject);
begin
//Sistem saatinin StatusBar'da gösterimi
StatusBar1.Panels.Items[1].Text:= TimeToStr(Time);
end;
procedure Tfrm_AdSoyadBol.Edit_AdSoyadExit(Sender: TObject);
begin
if Edit_AdSoyad.Text <> '' then BitBtn_Basla.Enabled:= True;
if Basilan_Tus = BitBtn_Kapat then BitBtn_KapatClick(Basilan_Tus)
else if BitBtn_Basla.CanFocus then BitBtn_Basla.SetFocus;
end;
procedure Tfrm_AdSoyadBol.Edit_AdSoyadKeyPress(Sender: TObject;
var Key: Char);
begin
if Key = #13 then Edit_AdSoyadExit(Edit_AdSoyad);
end;
procedure Tfrm_AdSoyadBol.Edit_Ad1Click(Sender: TObject);
begin
if Edit_AdSoyad.CanFocus then Edit_AdSoyad.SetFocus;
end;
procedure Tfrm_AdSoyadBol.BitBtn_KapatMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
BitBtn_Basla.Enabled:= False;
if Button = mbLeft then
begin
Basilan_Tus:= BitBtn_Kapat;
BitBtn_KapatClick(Basilan_Tus);
end;
end;
end.
//*.dfm kısmı
object frm_AdSoyadBol: Tfrm_AdSoyadBol
Left = 246
Top = 193
Hint = ' Program Hazır ... [ F1 .Yardım Alt+F4 .Programı Kapat ]'
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Ad Soyad Böl'
ClientHeight = 236
ClientWidth = 427
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF004444
44444444444444444444444444444FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF44F44
44444444444444444444444444F44F4444444444444444444444444444F44F44
44444444444444444444444444F44F444444444FFFFFF4444444444444F44F44
44444FFFFFFFFFF44444444444F44F444444FFFFFFFFFFFFF444444444F44F44
4444FFFFFFFFFFFFFF44444444F44F44444FFFFFFFFFFFFFFFF4444444F44F44
444FFFFFFF4444FFFFFF444444F44F44444FFFFFF4444444FFFFF44444F44F44
444FFFFFF444444444FFFF4444F44F44444FFFFFF4444444444FFFF444F44F44
444FFFFFFFF444444444FFF444F44F44444FFFFFFFFFF44444444FF444F44F44
444FFFFF44FFFF444444444444F44F444444FFFF4444FFF44444444444F44F44
4444FFFF44444FFF4444444444F44F4444444FFFF44444FFF444444444F44F44
44444FFFFF44444FFF44444444F44F44444444FFFFF44444FFF4444444F44F44
4444444FFFFF44444FFF444444F44F4444444444FFFFF44444FFF44444F44F44
444444444FFFFFF444FFFF4444F44F4444444444444FFFFFFFFFFF4444F44F44
444444444444FFFFFFFFFF4444F44F4444444444444444FFFFFFF44444F44F44
44444444444444444444444444F44F4444444444444444444444444444F44FFF
FFFFFFFFFFFFFFFFFFFFFFFFFFF4444444444444444444444444444444440000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000}
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 217
Width = 427
Height = 19
Panels = <
item
Width = 342
end
item
Alignment = taCenter
Width = 51
end
item
Text = 'KE'
Width = 25
end>
end
object Panel1: TPanel
Left = 5
Top = 5
Width = 72
Height = 21
Alignment = taLeftJustify
BorderStyle = bsSingle
Caption = ' Adı Soyadı'
TabOrder = 1
end
object Edit_AdSoyad: TEdit
Left = 80
Top = 5
Width = 342
Height = 21
Hint = ' Adı Soyadı'
TabOrder = 2
Text = 'Edit_AdSoyad'
OnChange = Edit_AdSoyadChange
OnExit = Edit_AdSoyadExit
OnKeyPress = Edit_AdSoyadKeyPress
end
object Panel2: TPanel
Left = 5
Top = 29
Width = 72
Height = 21
Alignment = taLeftJustify
BorderStyle = bsSingle
Caption = ' Adı_1'
TabOrder = 3
end
object Edit_Ad1: TEdit
Left = 80
Top = 29
Width = 342
Height = 21
Hint = ' Ad_1'
TabOrder = 4
Text = 'Edit_Ad1'
OnClick = Edit_Ad1Click
end
object Panel3: TPanel
Left = 5
Top = 53
Width = 72
Height = 21
Alignment = taLeftJustify
BorderStyle = bsSingle
Caption = ' Adı_2'
TabOrder = 5
end
object Edit_Ad2: TEdit
Left = 80
Top = 53
Width = 342
Height = 21
Hint = ' Ad_2'
TabOrder = 6
Text = 'Edit_Ad2'
OnClick = Edit_Ad1Click
end
object Panel4: TPanel
Left = 5
Top = 77
Width = 72
Height = 21
Alignment = taLeftJustify
BorderStyle = bsSingle
Caption = ' Adı_3'
TabOrder = 7
end
object Edit_Ad3: TEdit
Left = 80
Top = 77
Width = 342
Height = 21
Hint = ' Ad_3'
TabOrder = 8
Text = 'Edit_Ad3'
OnClick = Edit_Ad1Click
end
object Panel5: TPanel
Left = 5
Top = 101
Width = 72
Height = 21
Alignment = taLeftJustify
BorderStyle = bsSingle
Caption = ' Adı_4'
TabOrder = 9
end
object Edit_Ad4: TEdit
Left = 80
Top = 101
Width = 342
Height = 21
Hint = ' Ad_4'
TabOrder = 10
Text = 'Edit_Ad4'
OnClick = Edit_Ad1Click
end
object Panel6: TPanel
Left = 5
Top = 125
Width = 72
Height = 21
Alignment = taLeftJustify
BorderStyle = bsSingle
Caption = ' Soyadı'
TabOrder = 11
end
object Edit_Soyad: TEdit
Left = 80
Top = 125
Width = 342
Height = 21
Hint = ' Soyadı'
TabOrder = 12
Text = 'Edit_Soyad'
OnClick = Edit_Ad1Click
end
object BitBtn_Basla: TBitBtn
Left = 99
Top = 181
Width = 75
Height = 25
Hint = ' Girilen adı ve soyadı bölme işlemini başlatır ...'
Caption = '&Başla'
TabOrder = 13
OnClick = BitBtn_BaslaClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
333333333333337FF3333333333333903333333333333377FF33333333333399
03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
3333777777333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn_Kapat: TBitBtn
Left = 253
Top = 181
Width = 75
Height = 25
Hint = ' Programı Kapatır ... [ Alt+F4.Kapat ]'
Caption = '&Kapat'
TabOrder = 14
OnClick = BitBtn_KapatClick
OnMouseUp = BitBtn_KapatMouseUp
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003F8F8F8F8F8
F8F8F8F80707FF07FF07F807FFF8F8F8F8F8F8F8F8F8F8030303030303FF0404
0404040000F8F8F8FFFFFF0404040404F8F8F8F8F8F8F8F8F8F8FF030303FFFF
F8FF0303030304FD05000007FFFFFF0403030303F8F8F8F8F8F8F8F8F8F80303
03F8F8F8F8FF030303030405FD0500FFFFFFFF040303030303030303F8FFF8F8
F8FF030303F8FF0303FF0303030304FD05FD00FFFFFFFF040303030303030303
F8F807F8F8FF030303F8FF0303FF030303030405FD0500FFFEFFFE0403030303
03030303F8FFF807F8FF030303F8FF0303FF0303030304FD05FD00FFFFFFFF04
0303030303030303F8F807F8F8FF030303F8FF0303FF030303030405FD0500FF
FEFFFE040303030303030303F8FFF807F8FF030303F8FF0303FF0303030304FD
05FD00FFFFFFFF040303030303030303F8F807F8F8FF030303F8FF0303FF0303
03030405FD0500FFFEFFFE040303030303030303F8FFF807F8FF030303F8FF03
03FF0303030304FD05FD00FEFFFEFF040303030303030303F8F807F8F8FF0303
03F8FF0303FF030303030405FD0500FFFEFFFE040303030303030303F8FFF807
F8FF030303F8FF0303FF0303030304FD05FD00FEFFFEFF040303030303030303
F8F807F8F8FF030303F8FF0303FF030303030404040404040404040403030303
03030303F8FFF8FFF8FFFFFFFFF8FF0303FF0303030303030303030303030303
0303030303030303F8F8F8F8F8F8F8F8F8F8030303FF03030303030300000000
000003030303030303030303030303FFFFFFFFFFFF03030303FF030303030303
00FAFAFAFA00030303030303030303030303F8F8F8F8F8F8FF03030303FF0303
03030303000000000000030303030303030303030303F8FFFFFFFFF8FF030303
03FF}
NumGlyphs = 2
end
object BitBtn_Temizle: TBitBtn
Left = 176
Top = 181
Width = 75
Height = 25
Hint = ' " Adı Soyadı " hariç, diğer sahaları temizler ...'
Caption = '&Temizle'
TabOrder = 15
OnClick = BitBtn_TemizleClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
3333333337FFF7F3333333333000003333333333377777333333}
NumGlyphs = 2
end
object Panel7: TPanel
Left = 5
Top = 149
Width = 72
Height = 21
Alignment = taLeftJustify
BorderStyle = bsSingle
Caption = ' Adı / Soyadı'
TabOrder = 16
end
object Edit_Adi: TEdit
Left = 80
Top = 149
Width = 170
Height = 21
Hint = ' Adı Soyadı'
TabOrder = 17
Text = 'Edit_Adi'
OnChange = Edit_AdSoyadChange
OnClick = Edit_Ad1Click
end
object Edit_Soyadi: TEdit
Left = 252
Top = 149
Width = 170
Height = 21
Hint = ' Adı Soyadı'
TabOrder = 18
Text = 'Edit_Soyadi'
OnChange = Edit_AdSoyadChange
OnClick = Edit_Ad1Click
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 340
Top = 176
end
end
İşinizi görmesi dileğimle,
Çalışmalarınızda başarılar dilerim.
NeverFear - Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için
Üye Ol veya
Giris Yap [/I][/I][/I][/I][/I][/I]
