Цитата:
Сообщение от vah-smile
...как теперь передать в процедуру MyClick свою переменную?
|
Напрямую никак - обрабатывается ведь клик от мышки, (а в неё наука вживлять данные пока ещё не научилась, только вирусы :-) передается стандартный обработчик, но можно унаследовать потомка от TLabel и добавить ему своё текстовое поле, примерно так
Код:
...
type
TMyLabel = class(TLabel)
private
fTxt : string;
published
property MyText: string read fTxt write fTxt;
end;
...
var
title: array of TMyLabel;
...
title[i]:= TMyLabel.Create(ScrollBox1);
title[i].MyText:= 'C:\file.doc';
...
procedure MyClick(Sender:TObject);
begin
ShellExecute (Handle, 'open',(Sender as TMyLabel).MyText , nil, nil, SW_SHOWNORMAL);
end;
но согласитесь, кейсом это делать значительно проще