Czego użyć do stworzenia okna typu "Proszę czekać" które będę zamykał programowo.
Możliwość wstawienia różnych tekstów.
Możliwość zmiany kolorów ?
Próby z Formą niestety nie powiodły się.
Okno się pokazyje ale brakowało w nim tekstów.
Czego użyć do stworzenia okna typu "Proszę czekać" które będę zamykał programowo.
Możliwość wstawienia różnych tekstów.
Możliwość zmiany kolorów ?
Próby z Formą niestety nie powiodły się.
Okno się pokazyje ale brakowało w nim tekstów.
Próby z formą nie powiodły się ?? Przecież na formie możesz sobie umieścić w zasadzie co tylko zechcesz (a już na pewno możesz zmieniać jej kolor, czy wstawiać na nią tekst :-P )
//do poniżej:
A umieściłeś na formie jakiegoś labela, albo coś takiego ??
A poza tym w Create raczej nie zadziała, ale możesz w Activate formy
Kolory umieszczałem w Create i działe
Tekst próbowałem różnie i nietery nie wychodzi.
A umieszczenie tekstu w Create mija się z celem.
Zaraz zaraz....
Jest forma (np. Form2).
Kladziesz na nia TLabel (np. Label1)...
Dajesz tez
FormStyle:=StayOnTop;
Pozniej, zeby wywolac okienko dajesz:
Form2.Label1.Caption:='Prosze czekac...';
Form2.Show;
A gdy chcesz zamknac to:
Form2.Close;
:| Co tu moze nie dzialac ???
[browar] [cya]
Zaraz zaraz....
Jest forma (np. Form2).
Kladziesz na nia TLabel (np. Label1)...
Dajesz tez FormStyle:=StayOnTop; Pozniej, zeby wywolac okienko dajesz:
Form2.Label1.Caption:='Prosze czekac...';
Form2.Show;
A gdy chcesz zamknac to:
Form2.Close;
procedure TForm1.Button1Click(Sender: TObject);
var a: real;
n : longint;
begin
Form2.label1.caption :='start';
Form2.show;
for n :=0 to 10000000 do
begin
a:=a+1;
a:=a/2;
a:=a*1.14;
a:=a-1;
end;
Form2.label1.caption :='koniec';
Form2.close;
end;
Niestety to nie działa.
Nie pokazuje się ani napis "start" ani "koniec".
Jężeli zablokuję Form2.Close zobaczę napis "koniec" ale formę muszę zamknąć ręcznie
przed petla, czy tym zadaniem na ktorego zakonczenie sie czeka, a po ustawieniach dotyczacych form2 dodaj
Application.ProcessMessages;