Thema: ToolsAPI

Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#3

Re: ToolsAPI

  Alt 5. Mär 2009, 19:21
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;
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat