Jak ustawić inne położenie CheckBox?

Jak ustawić inne położenie CheckBox?
Dodeq
  • Rejestracja:ponad 6 lat
  • Ostatnio:8 miesięcy
  • Postów:28
0

Cześć,
jak po pokazaciu checkboxa- "show" ustawić jego nowe położenie na formatce?
Może ktoś pomóc? nie musiałbym wstawiać nowego checkboxa a istniejący mógłbym przesunąć. Proszę o rade.

edytowany 1x, ostatnio: flowCRANE
cerrato
Moderator Kariera
  • Rejestracja:ponad 7 lat
  • Ostatnio:31 minut
  • Lokalizacja:Poznań
  • Postów:8808
1

Nie rozumiem za bardzo o czym piszesz. Fajnie, jakbyś dał jakiś obrazek czy fragment kodu, bo teraz to jest takie zgadywanie.

Co do ustalani pozycji checkbox'a:

Kopiuj
Form1.CheckBox1.Left := 50;
Form1.CheckBox1.Top := 25; 

Najlepiej by było, jakbyś po prostu jednocześnie z wywołaniem procedury zmieniającej widoczność tego elementu, zgodnie z podanym wyżej kodem, zaktualizował pozycję checkbox'a.

Ewentualnie, jeśli nie wiesz, kto i w jaki sposób zmieni widoczność tego checkboxa, to trzeba skorzystać z magii. Najprościej (nie znaczy, że najlepiej - ale nie dałeś za wielu konkretów, więc to takie trochę zgadywanie) jest zrobić coś w stylu poniższego kodu: ponieważ TCheckBox nie ma zdarzenia OnShow, więc trzeba zrobić jakąś protezę. Tak na szybko, pierwsze (i najmniej skomplikowane) co mi przyszło do głowy to coś takiego:

Kopiuj
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.CheckBox1.Visible := TRUE;
  Form1.CheckBox1.SetFocus;
end;

procedure TForm1.CheckBox1Enter(Sender: TObject);
begin
  Form1.CheckBox1.Left := 11;
  Form1.CheckBox1.Top := 11;
end; 

edytowany 2x, ostatnio: cerrato
Dodeq
  • Rejestracja:ponad 6 lat
  • Ostatnio:8 miesięcy
  • Postów:28
0

@cerrato: Dziękuję, dokładnie o to mi chodziło :) zaraz po poście wprawiłem w ruch wujka google ;) ale to to. Będę wrzucał screene nie znam się dokładnie na tłumaczeniu językiem specjalistycznym.
Jeszcze raz dziękuję!

edytowany 1x, ostatnio: cerrato

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.