![]() |
|
|
#1
|
|||
|
|||
|
Я начал читать про Indy, и вот в книге "Глубины Indy" есть один пример "шутка"
Сервер состоит из двух частей, Server.pas и BSOD.pas. на форме ListBox, 3 checkbox'a и edit Код:
procedure TformMain.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
LMsg: string;
begin
if AData.Size = 0 then
begin
formBSOD.Hide;
end
else
begin
// Move from stream into a string
SetLength(LMsg, AData.Size);
AData.ReadBuffer(LMsg[1], Length(LMsg));
formBSOD.ShowBSOD(Copy(LMsg, 3, MaxInt),
Copy(LMsg, 1, 1) = 'T',
Copy(LMsg, 2, 1) = 'T');
end;
end; Меня интересует последняя часть, formBSOD.ShowBSOD == showmodal? не? другие функции не работают связанные с ЫРЩЦ,б а showmodal пишет мол many actual parameters// help plz/ |
|
#2
|
||||
|
||||
|
естественно не!!! написано же ShowBSOD(String; Boolean; Boolean)
|
|
#3
|
|||
|
|||
|
Ну а что тогда? я пробывал название своей формы подставлять все равно ошибка
|
|
#4
|
||||
|
||||
|
логично было бы предположить, что (T)formBSOD это что-то унаследованное от TForm, которое собственно и реализует синюю форму. а ShowBSOD это public метод класса TformBSOD (опять же по логике), который и вызывает появление ее на экране.
|