人気ブログランキング | 話題のタグを見る
Delphi - ラベルエディタ の文字がなかったらボタンに書いてあるフォルダを選択する処理を呼ぶ
procedure TForm2.WorkingFolder_BtnClick(Sender: TObject);
begin
if SelectDirectory('登録するフォルダの選択','',SelectFolder) then
WorkingFolder_LE.Text := Selectfolder;
end;

procedure TForm2.WorkingFolder_LEClick(Sender: TObject);
begin
if WorkingFolder_LE.Text ='' then
ShowMessage('no');
WorkingFolder_Btn.OnClick(Selectfolder); ←ここになんて書くべき?
end;


WorkingFolder_BtnClick()の処理を全部書くべきなのかなぁ?

2012年4月7日追記
  WorkingFolder_Btn.OnClick(Sender);
でOK。

by arigayas | 2012-04-06 18:27 | Delphi Programming | Trackback
<< Delphi XE Pro -... Delphi XE Pro と... >>