ScrollBar prüfen und StringGrid automatisch anpassen ?

[Ralf Wittig]

Moin,
kann mir jemand einen Tipp geben, wie ich:
- Die Zellen eines StringGrids immer automatisch an die Fensterkoordinaten anpasse ?
- wie ich prüfen kann, ob ein StringGrid gerade eine Scrollbar besitzt oder nicht ?

Thanks
RW

[Jens Schumann]

Hallo Ralf,<br>
schau Dir mal den Source an. Ich denke, damit könntest Du Dein Probelm lösen.<br>
<pre>
<font face="Verdana" size="1" color="#000000">unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
function ScrollBarVisible(Handle: HWnd; Style: Integer): Boolean;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
function TForm1.ScrollBarVisible(Handle : HWnd; Style : Longint) : Boolean;
begin
Result := GetWindowLong(Handle, GWL_STYLE) and Style &lt;&gt; 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If ScrollBarVisible(StringGrid1.Handle, WS_VSCROLL) then
ShowMessage('Yes')
else
ShowMessage('No');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If ScrollBarVisible(StringGrid1.Handle, WS_HSCROLL) then
ShowMessage('Yes')
else
ShowMessage('No');
end;

end.</font></pre>
Jens Schumann<br&gt

[Ralf Wittig]

Dank dir Jens - klappt!

R