掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TScaledLayout (ID：150671)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
FireMonkeyのTEditでTClearEditButtonを追加すると https://www.petitmonte.com/bbs/answers?question_id=29971 と同じなんだけど procedure TForm1.Button1Click(Sender: TObject); begin ClearEditButton1.Parent := Form1; ClearEditButton1.Scale := Edit1.Scale; ClearEditButton1.Align := TAlignLayout.None; ClearEditButton1.Position.X := Edit1.Position.X + (Edit1.Width * Edit1.Scale.X)- (Edit1.Height * Edit1.Scale.Y) + 4; ClearEditButton1.Position.Y := Edit1.Position.Y + 4; ClearEditButton1.Width := (Edit1.Height) -4; ClearEditButton1.Height := (Edit1.Height) -4; end; //Parent を Edit1 から外すとクリアされなくなるので OnClick で削除 procedure TForm1.ClearEditButton1Click(Sender: TObject); begin Edit1.Text := ''; end; こうすればなんとかなる
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.