김시준
(김시준)
|
|
if Pos('100', Panel5.Caption) <= 0 then
이걸 그대로 썼습니까?
그렇다면 패널 이름을 변경하십시오...
2018-12-17 오후 3:12:08
|
|
| |
복상사
(선형훈)
|
|
panel5 -> panel12으로 변경하였습니다.
2018-12-17 오후 3:35:58
|
|
| |
복상사
(선형훈)
|
|
if Components[i] is TPanel then 여기에서 tpanel 이름을L로 변경해야 하는지 그부분을 모르겠떠라구요
2018-12-17 오후 3:36:40
|
|
| |
이즈로즈
(김규석)
|
|
FindComponent 함수를 사용 하시면 될 것 같은데요.
2018-12-17 오후 4:23:24
|
|
| |
김시준
(김시준)
|
|
procedure TForm2.Button1Click(Sender: TObject);
var
P: TPanel;
i: Integer;
begin
for i := 1 to 140 do begin
P := TPanel(FindComponent('PanelL' + FormatFloat('00', i)));
if P is TPanel then
begin
P.ParentBackground := False;
P.Color := clRed;
end;
end;
end;
2018-12-17 오후 4:51:15
|
|
| |
복상사
(선형훈)
|
|
악~~~됬습니다^^
감사합니다.^^
노가다 안해두 되여^^
2018-12-17 오후 5:26:03
|
|
| |
