Hallo,
ich erstelle ein Panel(Panel2) in einem Panel(Panel1).
Jetzt müsste ich wenn ich auf Panel2 klicke, Panel1 autosize auf false setzen und height auf 19.
Wie kann ich das am besten anstellen.
Hier noch der code von den Panels:
Delphi-Quellcode:
for j := 0 to FResult.RowsCount - 2 do
begin
Panel1:=TPanel.Create(Scrollbox1);
Panel1.Parent := ScrollBox1;
Panel1.Left := 5;
Panel1.Height := 59;
Panel1.Width := 362;
Panel1.Top := aTop;
Panel1.Caption:='';
Panel1.AutoSize:=true;
Panel1.Color:=clblack;
Panel1.Color:=clblack;
Panel2:=TPanel.Create(Panel1);
Panel2.Parent := Panel1;
Panel2.Left := 0;
Panel2.Height := 17;
Panel2.Width := 359;
Panel2.Top := 0;
Panel2.Caption:=' '+FResult.FieldValuebyname('Title')+' ***geschrieben von '+FResult.FieldValuebyname('from');
Panel2.AutoSize:=false;
Panel2.Color:=clblack;
Panel2.Alignment:=taLeftJustify;
Panel2.OnClick := //Was muss hier hin???
end;