くだすれDelphi(超初心者向け) Part2
■ このスレッドは過去ログ倉庫に格納されています
0267デフォルトの名無しさん
NGNGfunction TForm1.CheckEditValue(AWinControl: TWinControl): boolean;
begin
if AWinControl.Text = '' then
begin
ShowMessage('空欄にはできません。');
AWinControl.SetFocus;
Result := False;
end
else
Result := True;
end;
という関数を作って、
if not CheckEditValue(Edit1) then Exit;
if not CheckEditValue(ComboBox1) then Exit;
のように使いたいのですが、上の関数で、「AWinControl.Text」のところで止まってしまいます。
どうやらスコープがprotectedなのが原因みたいです。
TextとSetFocusを1つのクラスから使えて便利だと思ってたのですが、無理なのでしょうか?
■ このスレッドは過去ログ倉庫に格納されています