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。
[PR]

by arigayas | 2012-04-06 18:27 | Delphi Programming | Trackback
トラックバックURL : http://arigayas.exblog.jp/tb/18090997
トラックバックする(会員専用) [ヘルプ]
※このブログはトラックバック承認制を適用しています。 ブログの持ち主が承認するまでトラックバックは表示されません。
<< Delphi XE Pro -... Delphi XE Pro と... >>