Als andere Lösung wäre vielleicht möglich einen Balloon-Tip anzeigen zu lassen.
Edit:
Ich habe ebengerade noch dieses Beispiel im Internet gefunden:
Delphi-Quellcode:
procedure TSDCSimpleExpert.ShowMessageWindow(b : boolean);
var
I: Integer;
begin
for I := 0 to Screen.FormCount - 1 do
if Screen.Forms[I].ClassNameIs('TMessageViewForm') then
begin
if b then begin
Screen.Forms[I].Show;
Break;
end else
begin
Screen.Forms[I].Hide;
Break;
end;
end;
end;
procedure TSDCSimpleExpert.Execute;
begin
(BorlandIDEServices as IOTAMessageServices).AddToolMessage('','hello', 'execute method', 0, 0);
ShowMessageWindow(true);
end;