با سلام
یه شگرد دیگه هم تو دلفی وجود داره که جناب DelphiAssistand به علت پیچیدگی اون رو بیان نکردن .
اگه چند خط کد دارین که میخواین در چند رویداد مختلف از اونها استفاده کنین میتونین یه Procedure تعریف کنین و در هر جای برنامه از اون استفاده کنین .
مثال : شم میخواهید این خط کد
StatusBar1.SimpleText := 'Lines: ' + IntToStr(Memo1.CaretPos.Y) + ' Cloumn: ' + StrToInt(Memo1.CaretPos.X);
رو در رویداد های OnChange ، OnKeyUp ، OnEnter ، OnMouseDown ، ... برای Memo1 وارد کنین میتونین اول یک Procedure بسازید و اون رو تو بلوک مربوط به Procedure بنویسین اونوق اون Procedure را به جای کد تو رویداد های مختلف به کار ببرین .
Procedure مربوط به این خط کد بصورت زیر است .
Procedure TForm1.MemoCaretPos;
begin
StatusBar1.SimpleText := 'Lines: ' + IntToStr(Memo1.CaretPos.Y) + ' Cloumn: ' + StrToInt(Memo1.CaretPos.X);
end;
البته باید توجه داشته باشین که نام Procedure رو در قسمت Private یا Public به این صورت Procedure MemoCaretPos درج کنیین .
پس از طی این مراحل میتونین Procedure مورد نظر در هر جای برنامه به این صورت MemoCaretPos به کار ببرید .
امیدوارم ساده توضیح داده باشم و شما بتونین اون رو درک کین .