|
|
| Тема |
 application.messagebox |
|
| Автор |
XE () |
|
| Публикувано | 15.06.03 20:18 |
|
|
|
moje li nqkoi da mi obqsni kakvo stava
eto kakvo pravq:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.MessageBox('1', 'a', MB_OK);
Application.MessageBox('2', 'b', MB_OK);
Application.MessageBox('3', 'c', MB_OK);
end;
o4akvam pri create na formata da mi gi puska edno sled drugo... oba4e nqma takova neshto pyrvia box go puska i sled [OK] programata otshumqva.... nali Application.MessageBox e ekvivalent na MessageBox kato za handle se vzima handle na application.... ina4e kogato go pravq sys MessageBox(Application.Handle, '1', 'a', MB_OK); si4ko e kakto o4akvam
kyde byrkam?
btw probvah i tova:
with Application do
begin
NormalizeTopMosts;
MessageBox('This should be on top.', 'Look', MB_OK);
RestoreTopMosts;
end;
with Application do
begin
NormalizeTopMosts;
MessageBox('This should be on top.', 'Look', MB_OK);
RestoreTopMosts;
end;
with Application do
begin
NormalizeTopMosts;
MessageBox('This should be on top.', 'Look', MB_OK);
RestoreTopMosts;
end;
nishto ne se promenq vinagi kato gi naslagam nqkolko Application.MessageBox i se bugva...
| |
| |
| 
|
|
