title image


Smiley So geht's:
Hi Du,um die Aufschrift des Buttons im Taskbar zu ändern, änder die Eigenschaft application.title (:String).um die Anwendung in den Tray zu kriegen, mußt Du etwas mehr tun:uses shellapi;const IM_Return=$100;type TTrayMsg=array[0..8] of byte;in die deklaration von form1 mußt Du zwei Routinen einfügen:procedure iconmessage(var msg:TTrayMsg); message im_return;procedure applicationminimize(sender:TObject);var icondata:TNotifyIconData;implementationprocedure tform1.applicationminimize;BeginIconData.hicon:=application.icon.handle;IconData.cbSize:=SizeOf(TNotifyIconData);IconData.wnd:=handle; //Damit weiß das Icon, wem eine Nachricht beim Klicken geschickt werden sollIconData.uid:=getcurrentprocessID;IconData.uFlags:=NIF_ICON + NIF_MESSAGE + NIF_TIP;IconData.uCallbackmessage:=$100;IconData.szTip:=application.title //da isses wiederShell_NotifyIcon(NIM_ADD,@IconData);showwindow(application.handle,sw_hide);End;procedure tform1.iconmessage;Begincase m[8] of2: //linksklick auf das Iconbeginapplication.restore;showwindow(application.handle,sw_normal);Shell_NotifyIcon(NIM_DELETE,@IconData);//entfernt das Icon auds dem Trayend;3: //linksdoppelklick auf das Iconbegin...anweisungsblock;...end;5://rechtsklick auf das Iconbegin...anweisungsblock;...end;end;End;so, in FormCreate schreibst Du jetzt noch folgendes:Procedure TForm1.FormCreate;Beginapplication.onminimize:=applicationMinimize;application.Title:='Such Dir was aus';End;ich weiß allerdings nicht, ob das auch unter Win NT läuft

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: