unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm);
Tstrproc:Procedure(const msg:string)
private
procedure onlinemsg(const msg:string);
procedure doublelinemsg(const msg:string);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.doublelinemsg(const msg: string);
begin
end;
procedure TForm1.onlinemsg(const msg: string);
begin
end;
end.
Yukarıdaki kodlar çalışmıyor tanımlanan procedure alanında hata veriyor.Önceleri fazla ilgilenmediğim NYP yi öğrenmek istedim ama başaramadım marco cantu nun kullanım kılavuzu kitabındada anlatmış ama anlamak biraz daha zor.sınıf dahi tanımlasam hatalar alıyorum benmi yanlış yapıyorum öğrenmeye çalıştığım kaynaklarmı yanlış yoksa benmi yanlış yorumluyorum anlamadım.sizlerden rica ediyorum normal olarak sınıf veya bu taraz olaylar nasıl tanımlanır..bunun hakkında bilgi.elimde gerçekten güzel kaynak var ama mantaliteyi anlamadan kullanamıyorum 2si ezberre yol almak istemiyorum.
Kolay gelsin
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
type
TForm1 = class(TForm)
RadioButton1: TRadioButton;
procedure RadioButton1Click(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
classref:Tcontrolclass;
adet:integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
classref:=TRadioButton;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
yeni:Tcontrol;
adim:string;
begin
yeni:=classref.Create(self);
yeni.Visible:=false;
yeni.Parent:=self;
yeni.Left:=x;
yeni.Top:=y;
inc(adet);
adim:=classref.ClassName+inttostr(adet);
delete(adim,1,1);
yeni.Name:=adim;
yeni.Visible:=true;
end;
end.
Bu kodda hiç bir problem yok tamamen çalışıyor ama create ediyor gözüküyor son satırda hata veriyor. Ben bu NYP yi öğrencem biraz daha tırmalamam lazım..
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
Hocam seminerleri izledim özellikle 3.sünü dikkatli ce izledim ama ordaki olayı tam kavrayamadım bu yüzden sormak istedim.yani mantık hocam bir anlasam problem tamemen yok olacak.ne yaparsam ne edersem olmadı bilmiyorum biryerde hata yapıyorum ama nerde yada konuyu iyi anlamadım veya yanlış anladım.
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
Ya hocam ne hikemettir şimdi makaleye baktım ona göre yaptım düzeldi..Allah sizden razı olsun hocam ben forumda aratmıştım ama başka bir makale bulmuştum..birde hocam ilk verdiğim kodlarda procedure tanımalamamda yanlışlıkmı var.seminerdeki gibi tanımlamaya çalıştım ama hata yaptım glaiba.allah sizden razı olsun hocam cevap yazmaya kalkışmanız bile sorunu çözüyor.
Bu arada husonet hocam husonetdbedit datesete bağlıyken readonly aktifo luyor değişiklik yaptırmıyor.bunu daha önce sormuştuk ama gözden kaçtı galiba.yada siz sorunu çözdünü ben görmedim.kolay gelsin hocam
birazdaha yol aldık sayılır.
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
vedatkaba yazdı:Ya hocam ne hikemettir şimdi makaleye baktım ona göre yaptım düzeldi..Allah sizden razı olsun hocam ben forumda aratmıştım ama başka bir makale bulmuştum..birde hocam ilk verdiğim kodlarda procedure tanımalamamda yanlışlıkmı var.seminerdeki gibi tanımlamaya çalıştım ama hata yaptım glaiba.allah sizden razı olsun hocam cevap yazmaya kalkışmanız bile sorunu çözüyor.
Bu arada husonet hocam husonetdbedit datesete bağlıyken readonly aktifo luyor değişiklik yaptırmıyor.bunu daha önce sormuştuk ama gözden kaçtı galiba.yada siz sorunu çözdünü ben görmedim.kolay gelsin hocam
birazdaha yol aldık sayılır.
Aslında ilk gönderdiğin kod parçasında ki Tstrproc:Procedure(const msg:string) tanımın yanlış ben bu şekilde tanımlama görmedim veya var ben bilmiyorum. Hata alman da bu yüzden
Neyse HusoDbEdit teki yaşadığın sorun aslında sorun değil Dataset edit veya insert moda geçirmeden veri girişini kitledim daha güvenli olacağını düşünerek. Yanlışmı yaptım acaba
tam isabet olmuş hocam..bunuda öğrenmiş olduk..peki hocam nasıl bir tanımlama yapcaz procedure i semirden izlediğim buydu belki ben yanlış yere yazdım yada eksik bir tanımlama yaptım.
***********************************
Kamil odur ki; koya dünyada bir eser,
Eseri olmayanın, yerinde yeller eser.
