{Delphi} Nazwa bez rozszerzenia, Button

Pytanie 1:
Jak pobrać nazwę pliku bez rozszerzenia?

Pytanie 2:
Jak zrobic button bez obwódk, ktora sie na nim pojawii po kliknięciu.

Jak chcesz pobrać z filelistboxa i dodać do memo to na przykład tak:
[code]
for i := 0 to filelistbox1.items.count - 1 do begin
memo1.lines.Add(ChangeFileExt(FileListBox1.Items[i],''));
end;
[/code]
Jak skądindziej i gdzie indziej to musisz zmodyfikować.
A na drugie nie znam odpowiedzi, ale chętnie bym poznał:)

1. ExtractFileName(NazwaPliku)

1. ExtractFileName(NazwaPliku)

Ale czy to czasem nie będzie razem z rozszerzeniem [???]

1. ExtractFileName(NazwaPliku)

Ale czy to czasem nie będzie razem z rozszerzeniem [???]

Rzeczywiście. Więc tak:

var
Poz: Integer;
Plik: string;
begin
Plik := ExtractFileName(NazwaPliku);
Poz := Pos('.', Plik);
if Poz > 0 then
Plik := LeftStr(Plik, Poz-1);
ShowMessage(Plik);
end;

Albo wspomniane ChangeFileExt(NazwaPliku, '');

ad2.
o jakie obwódki Ci chodzi ?
jeśli o takie co myśle
to zmień w objekt inspektorze
tab stop na false
:-)

ad2.
o jakie obwódki Ci chodzi ?
jeśli o takie co myśle
to zmień w objekt inspektorze
tab stop na false
:-)

Albo użyj speedbuttona :)

tab stop na false

To nie spowoduje zniknięcia obwódki (jak klikniejsz na przycisk to zostanie). Wspomniany SpeedButton rozwiązuje problem.

Jak zrobic button bez obwódk, ktora sie na nim pojawii po kliknięciu.

Możesz też w OnClick Buttona wpisać :

ActiveControl := Button2 ; // lub coś innego np edit1

albo ja źle zrozumiałem albo Ty dry. Jemu chodzi o to że po kliknięciu ma się pojawić obwódka. Jeżeli tak to mój sposób jest dobry :-)

albo ja źle zrozumiałem albo Ty dry. Jemu chodzi o to że po kliknięciu ma się pojawić obwódka. Jeżeli tak to mój sposób jest dobry :-)

"Jak zrobic button bez obwódk"
Co do ActiveControl to też jest dopóki nie puszczę przycisku myszy :)