ich habe folgendes Problem, ich habe eine kleine Komponente geschrieben,
bei der man einstellen kann, ob der Festertitel angezeigt wird oder nicht.
Unter Windows XP (darauf habe ich es entwickelt) geht es, unter Windows
2000 gibt es zwar keine Fehlermeldung aber der Festertitel wird auch nicht
ausgeblendet! Hier mal einen ausschnitt aus dem Quelltext, Ich überschreibt einfach das OnCreate-Ereignis, des Formulares.
<PRE>
procedure TKKIPanel.MyCreate(Sender:TObject);
begin
if FShowFormTitel=False then
with FForm do
SetWindowLong(Handle,GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
end;
</PRE>
bei der man einstellen kann, ob der Festertitel angezeigt wird oder nicht.
Unter Windows XP (darauf habe ich es entwickelt) geht es, unter Windows
2000 gibt es zwar keine Fehlermeldung aber der Festertitel wird auch nicht
ausgeblendet! Hier mal einen ausschnitt aus dem Quelltext, Ich überschreibt einfach das OnCreate-Ereignis, des Formulares.
<PRE>
procedure TKKIPanel.MyCreate(Sender:TObject);
begin
if FShowFormTitel=False then
with FForm do
SetWindowLong(Handle,GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
end;
</PRE>
Comment